以下是一个使用Excel VBA引用单元格，将工作表移动到新工作簿并保存的示例代码：

Sub MoveSheetToNewWorkbook()
    Dim wbSource As Workbook
    Dim wsToMove As Worksheet
    Dim wbNew As Workbook
    Dim strFilePath As String
    
    ' 设置源工作簿和要移动的工作表
    Set wbSource = ThisWorkbook
    Set wsToMove = wbSource.Worksheets("Sheet1")
    
    ' 创建新工作簿
    Set wbNew = Workbooks.Add
    
    ' 将要移动的工作表复制到新工作簿
    wsToMove.Copy Before:=wbNew.Sheets(1)
    
    ' 移除新工作簿中的默认工作表
    Application.DisplayAlerts = False
    wbNew.Sheets(2).Delete
    Application.DisplayAlerts = True
    
    ' 保存新工作簿
    strFilePath = "C:\目标路径\新工作簿名.xlsx" ' 替换为实际的目标路径和文件名
    wbNew.SaveAs strFilePath
    
    ' 关闭新工作簿
    wbNew.Close
    
    ' 清理对象变量
    Set wsToMove = Nothing
    Set wbNew = Nothing
    Set wbSource = Nothing
    
    MsgBox "工作表已移动到新工作簿并保存。"
End Sub

请替换代码中的目标路径和新工作簿名为实际的目标路径和文件名。运行该宏后，将会从源工作簿中提取并复制名为"Sheet1"的工作表到一个新的工作簿中，并将新工作簿保存到指定的目标路径。