Excel VBA更改复制的活动工作表的名称

以下是我的代码。 我想将其应用于任何Excel文件，并创build所选工作表的副本，并将其副本重命名为更新。

ActiveWorkbook.ActiveSheet.Select ActiveWorkbook.Activesheet.copy After:=Sheets(1) *Sheets("page (2)").Select Sheets("page (2)").Name = "Updated"* 

如何select新复制的工作表。 由*包围的部分是问题，我只是不知道该怎么改变。

Answer 1

您应该检查更新的名称是否已经存在。

 Sub UpdatenMove() Dim ws As Worksheet On Error Resume Next Set ws = Sheets("Updated") On Error GoTo 0 If Not ws Is Nothing Then MsgBox "This sheet already exists", vbCritical Else ActiveSheet.Copy After:=Sheets(1) ActiveSheet.Name = "Updated" End If End Sub