Run-time error '1004' with a macro

[dhosi439]

I'm trying to run a macro when the workbook opens. It was working fine, I'm not sure what changed.

Code to run the macro:

Private Sub Workbook_Open()
Run "PopulateCB"
End Sub

Macro, which works when manually started:

Private Sub PopulateCB()
For i = 2 To Sheets.Count
If Sheets(i).Visible = xlSheetVisible Then Sheet5.cbSheets.AddItem Sheets(i).Name
Next i
End Sub

and the code for the Combo Box that is populated by the macro:

Private Sub cbSheets_Change()
On Error Resume Next
Worksheets(cbSheets.Value).Select
Charts(cbSheets.Value).Select
Sheet5.cbSheets.Text = ""
Sheet5.cbSheets.Value = ""
End Sub

Everything works except the Run command for the workbook. We have tried replacing the macro and using Call instead of Run.

Additionally, I have put On Error Resume Next into the Combo box code because of an error that was popping up, which didn't seem to affect the overall performance of the worksheet.

Any help would be great, I've asked several of my coworkers, no one is sure why the call doesn't work. Would it be possible to put the run into the combo box code, for instance when the drop down is clicked it populates, but only does it once?

Thanks for any help.

 

[russellrichter]

Have you tried dropping the Run/Call completely from the Workbook_Open?

Private Sub Workbook_Open()
    PopulateCB
End Sub

HTH
Russ

 

[RoryA]

Where is the PopulateCB routine located (which module) and why is it Private?

 

[dhosi439]

I tried just removing the Run command, however that didn't help.

I also never really had a need for public subs.

What I did to fix my issue was instead of calling the module, I just put my code into the workbook instead.

Thanks for helping.