我完全get到你的需求：要批量删除两个Excel文件里指定的工作表，碰到目标表不存在的情况时，不能中断整个代码的执行，还要精准弹出提示，明确告诉用户哪个文件里缺了哪个待删除的工作表。你的现有代码已经有基础错误处理，但提示不够灵活，而且一旦触发错误就会终止后续操作，对吧？

下面是优化后的代码，完美解决你的问题：

通用安全删除函数 #

先封装一个专门处理工作表删除的函数，让每个删除操作都能独立处理错误，不影响后续流程：

Function DeleteWorksheetSafe(wb As Workbook, sheetName As String, wbNickname As String) As Boolean
    ' 临时开启错误忽略，只针对当前删除操作
    On Error Resume Next
    wb.Worksheets(sheetName).Delete
    ' 恢复默认错误处理，避免影响其他代码
    On Error GoTo 0
    
    ' 判断是否发生错误
    If Err.Number <> 0 Then
        ' 动态生成提示信息，精准告知错误位置
        MsgBox "⚠️ 无法删除：文件「" & wbNickname & "」中不存在工作表「" & sheetName & "」", vbExclamation
        DeleteWorksheetSafe = False
    Else
        DeleteWorksheetSafe = True
    End If
End Function

主执行过程 #

然后在主过程里逐个调用这个函数，不管前一个删除操作是否失败，后续操作都会继续执行：

Sub Remove_sheets()
    Dim wbA As Workbook: Set wbA = Workbooks("A.xlsx")
    Dim wbB As Workbook: Set wbB = Workbooks("B.xlsx")
    Const NameA As String = "A"
    Const NameB As String = "B"
    
    ' 关闭删除时的确认提示框，提升操作流畅度
    Application.DisplayAlerts = False
    
    ' 逐个执行安全删除，每个操作独立，互不影响
    DeleteWorksheetSafe wbA, "Sheet1", NameA
    DeleteWorksheetSafe wbB, "Sheet5", NameB
    DeleteWorksheetSafe wbB, "Sheet5 (2)", NameB
    
    ' 恢复系统提示设置
    Application.DisplayAlerts = True
    ' 所有操作完成后给出提示
    MsgBox "✅ 指定工作表删除操作已全部完成！", vbInformation
End Sub

优化点说明 #

• 独立错误处理：每个删除操作都通过函数单独处理错误，不会因为某一个表不存在就中断整个代码，后续的删除任务依然会执行
• 动态错误提示：提示消息会自动拼接文件名和缺失的工作表名，让你一眼就知道哪里出了问题
• 代码复用性：如果后续需要删除更多工作表，直接新增DeleteWorksheetSafe的调用即可，不用重复写错误处理逻辑
• 恢复系统设置：确保操作完成后恢复Application.DisplayAlerts的默认状态，避免影响后续的Excel操作

内容的提问来源于stack exchange，提问作者Shane