分配给动态创建的Button的VBA公共函数返回错误“对象不支持...”

Question

我一直在寻找这个问题好几个小时，虽然我已经找到了我的问题的各种答案，但它们似乎都不起作用，所以也许这会（提前谢谢你！）。我目前正在主函数中运行一个子例程，它在工作簿中动态创建（和指定）工作表（预测）中动态创建一个按钮 - 当单击按钮时，我想运行一系列函数然而，不同的模块仍在同一工作簿中。但是，目前我只想尝试一个功能。为此，我使用.OnAction与我认为是调用公共函数的正确语法，但是当我运行我的代码时，它返回错误“对象不支持此属性或方法”。

这是代码块的样子。

Set ApplyFilters_Button = Forecast.Buttons.Add(103, 299, 159, 21)

'Change Command button Display and Format

Set Button_AF = Forecast.Shapes(ApplyFilters_Button.Name)
With ApplyFilters_Button
   .Caption = "Apply Filters/Judgement"
   .Font.Size = 11
   .OnAction = "'Fill_SummaryTable """ & Forecast & """," & DataChart_start &    
       "," & End_Cust_List & " '"
End With

我尝试附加的功能是一个公共功能，看起来像这样，输入如下：

Fill_SummaryTable(Forecast, DataChart_start, End_Cust_List) 

其中forecast是工作表，DataChart_start和End_Cust_List都是整数。

关于为什么这不起作用的任何想法/建议？ 谢谢！