简单的VBA：从命令button调用模块生成combobox对象所需的错误424

我有一个命令button被复制20张，所以我想编辑代码在一个地方（一个模块）。 我的button是这样设置的：

Private Sub CommandButton1_Click() Call Main End Sub 

但是当我点击我的button，我得到一个与ComboBox1对象错误424：

 Public Sub Main() Set ws = ThisWorkbook.ActiveSheet sourceFolder = "C:\MyDirectory\" & Month(DateValue("01-" & ComboBox1.Value & "-1900")) & ". " & ComboBox1.Value & " " & Year(Date) & "\" 

Answer 1

事实certificate，我不得不把它作为一个对象：

 Combox1.Value 

变成：

 ws.OLEObjects("ComboBox1").Object.Value 

一切正常，我可以从其他工作表/button调用此模块