Workbook Open Code Not Working

[Grant22]

Hello all, I am getting an error when I open a workbook. In a nutshell, for each sheet not named one of the sheets in the code I want to activate that sheet and add the months of the year in the combo box. Each sheet has a combobox1 on it, so I'm not sure why this isn't working. Any help is greatly appreciated. See below for the error message as well as the code:

Method or Data Member Not Found

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Home" And ws.Name <> "Emp's" And ws.Name <> "Metrics" _
        And ws.Name <> "Branch Performance" And ws.Name <> "EMP Performance" Then
        ws.Activate
    With ws.ComboBox1
        .Clear
        .AddItem ""
        .AddItem "January"
        .AddItem "February"
        .AddItem "March"
        .AddItem "April"
        .AddItem "May"
        .AddItem "June"
        .AddItem "July"
        .AddItem "August"
        .AddItem "September"
        .AddItem "October"
        .AddItem "November"
        .AddItem "December"
    End With
    ws.ComboBox1.Value = ""
    Next ws
End If
End Sub

 

[mse330]

Looks like I am late but this is my try anyway

Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In Worksheets
    Select Case ws.Name
        Case "Home", "Emp's", "Metrics", "Branch Performance", "EMP Performance"
        Case Else
            ws.OLEObjects("ComboBox1").Object.Clear
            For i = 1 To 12
                ws.OLEObjects("ComboBox1").Object.AddItem MonthName(i, False)
            Next i
     End Select
Next

End Sub