如何通过自动打开新工作表将文本框从一个工作表复制并粘贴到另一个工作表

Sub CopyTextBoxToNewWorksheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim textBox As Shape
    Dim newSheet As Worksheet
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 复制文本框到新工作表
    Set textBox = sourceSheet.Shapes("文本框名称")
    textBox.Copy
    
    ' 创建新工作表并粘贴文本框
    Set newSheet = ThisWorkbook.Worksheets.Add
    newSheet.Paste Destination:=newSheet.Range("A1")
    
    ' 重命名新工作表
    newSheet.Name = "新工作表名称"
    
    ' 切换回目标工作表
    targetSheet.Activate
End Sub