VBA带MsgBox确认删除单元格功能运行触发调试报错问题

你当前使用的代码如下：

Sub clear_click()
If MsgBox("Del?", vbOKCancel) = vbCancel Then
   Exit Sub
Else
Worksheets("calc").Range("G9:G12").ClearContents
End If
End Sub

报错出现在工作表操作行，按以下优先级排查即可定位问题：

• 确认当前工作簿存在名称完全匹配的calc工作表：工作表名称区分大小写，也不能包含多余的空格、特殊符号，你可以直接复制工作表标签上的名称替换代码内的calc，避免拼写错误
• 检查calc工作表是否处于保护状态：如果工作表设置了保护且未开放编辑单元格权限，调用清除内容方法会触发权限报错，可先手动解除保护后再运行代码，也可以在代码中增加临时解除保护的逻辑
• 明确工作簿指向：如果同时打开了多个Excel文件，不加前缀的Worksheets会默认指向当前激活的工作簿，若激活的工作簿中没有calc工作表就会报错，建议把代码修改为明确指向代码所在工作簿的写法

优化后的可用代码参考：

Sub clear_click()
    ' 点击取消按钮直接退出过程
    If MsgBox("确定要删除内容吗？", vbOKCancel + vbQuestion, "操作确认") = vbCancel Then
        Exit Sub
    End If
    ' 明确指定当前代码所属工作簿的calc工作表，避免引用错误
    ThisWorkbook.Worksheets("calc").Range("G9:G12").ClearContents
End Sub

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