Excel VBA中OnAction无法调用宏问题求助

我编写了一个用于收集BoE数据的VBA宏，宏内包含一个按钮，可删除某工作表的一行数据及另一整张工作表。按钮创建的核心代码如下：

Dim btn As Button
Dim btnName As String
Dim actionStr As String
btnName = buttonText & "_" & sheetName ' Use sheet name for unique identifier
Set btn = ws.Buttons.Add(ws.Cells(buttonRow, buttonColumn).Left, ws.Cells(buttonRow, buttonColumn).Top, _
    ws.Cells(buttonRow, buttonColumn).Width, ws.Cells(buttonRow, buttonColumn).Height)

With btn
    .OnAction = "'" & buttonMacro & " """ & sheetName & """'"
    .Caption = buttonText
    .Name = btnName
End With

该代码昨日运行完全正常，但今日点击按钮时出现错误。尝试修改.OnAction语句的各种写法均未成功，怀疑问题出在其他地方，以下是具体排查建议：

• 检查目标宏的参数匹配：确认buttonMacro指定的宏是否接受单个字符串参数，宏定义需类似Sub 目标宏名(ByVal sheetName As String)，参数数量、类型必须和调用时传递的sheetName完全匹配，否则会直接触发错误。
• 验证工作表名称有效性：如果sheetName包含空格、特殊字符（如!、@、#），或者目标工作表已被删除/重命名，会导致找不到对象。可以在宏开头添加工作表存在性检查：

  Function SheetExists(sheetName As String) As Boolean
      Dim ws As Worksheet
      On Error Resume Next
      Set ws = ThisWorkbook.Worksheets(sheetName)
      SheetExists = Not ws Is Nothing
      On Error GoTo 0
  End Function
  

• 确认宏的启用状态：如果Excel宏安全设置被修改，或者文件被标记为“来自互联网”，宏可能被禁用，导致按钮点击无响应或报错。通过「文件」→「信息」→「启用内容」确认宏权限。
• 排查宏的路径是否正确：如果buttonMacro位于其他模块或个人宏工作簿中，需指定完整路径，比如个人宏里的宏要写成'Personal.xlsb'!目标宏名，否则Excel无法定位到对应的宏。
• 检查工作表保护状态：若要删除行的工作表处于保护状态，未解除保护就执行删除操作会触发权限错误。可在宏开头添加解除保护代码（有密码需传入）：

  ThisWorkbook.Worksheets(targetSheetName).Unprotect Password:="你的密码"
  

• 查看具体错误信息：报错时不要直接关闭弹窗，记录错误代码和描述（比如“运行时错误'9'：下标越界”），根据错误信息能更快定位问题——比如错误9通常是找不到指定工作表，错误1004可能是操作受保护或单元格锁定。

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