如何在引用外部工作簿时自动增加工作表编号？

Sub ImportExternalWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim extWb As Workbook
    Dim extWs As Worksheet
    Dim wsCount As Integer
    
    ' 设置外部工作簿的文件路径和名称
    Set extWb = Workbooks.Open("C:\Path\To\ExternalWorkbook.xlsx")
    
    ' 设置外部工作簿中要引用的工作表名称
    Set extWs = extWb.Worksheets("Sheet1")
    
    ' 获取当前工作簿中的工作表数量
    wsCount = ThisWorkbook.Worksheets.Count
    
    ' 复制外部工作簿中的工作表到当前工作簿中
    extWs.Copy After:=ThisWorkbook.Worksheets(wsCount)
    
    ' 关闭外部工作簿，不保存更改
    extWb.Close SaveChanges:=False
    
    ' 重命名新复制的工作表，添加工作表编号
    Set ws = ThisWorkbook.Worksheets(wsCount + 1)
    ws.Name = "Sheet" & (wsCount + 1)
End Sub