Combobox dynamisch füllen

ich habe in einer UF eine Combobox, die ich mit den Zellinhalten aus Zeile 4 des Tabellenblattes fülle. Das mache ich so:

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Alle Bereiche"
Dim r As Integer
For r = 1 To 15
If Cells(4, r) <> "" Then
ComboBox1.AddItem Cells(4, r)
End If
Next
End Sub

Nun habe ich im Tabellenblatt auch eine Userform, die ich mit den gleichen Werten füllen möchte. Wenn ich den gleichen Code verwende, bekomme ich eine Fehlermeldung (Laufzeitfehler 242, Objekt erforderlich). Selbst wenn ich nur ein Objekt hinzufügen möchte, z.B.

Private Sub Workbook_Open()
ComboBox1.AddItem "Alle Bereiche"
End Sub

kommt der Fehler. Woran kann das liegen?

Gruß Matthias