不应添加重复的工作表

Sub CheckForDuplicateSheetNames()
    Dim ws As Worksheet
    Dim sheetNames As Collection
    Dim dupe As Variant
    Dim hasDupe As Boolean

    Set sheetNames = New Collection
    hasDupe = False

    On Error Resume Next ' 如果名称已存在，则忽略错误
    For Each ws In ThisWorkbook.Sheets
        sheetNames.Add ws.Name, CStr(ws.Name)
        If Err.Number = 457 Then ' 457表示键已存在，即名称重复
            hasDupe = True
            Debug.Print "Duplicate sheet name found: " & ws.Name
        End If
    Next ws
    On Error GoTo 0 ' 恢复默认的错误处理

    If Not hasDupe Then
        MsgBox "No duplicate sheet names found."
    End If
End Sub