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

下面是我的代码。我想将其应用于任何excel文件，并创建任何选定图纸的副本，并将其副本重命名为“已更新”

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

---

如何选择新复制的工作表。被*包围的部分是问题所在，我只是不知道要更改什么。

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

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

---

sheets（2）.name=“Updated”

我觉得自己很笨，谢谢你的帮助。