ComboBox wird nicht mit Daten gefüllt

ich habe da ein Userform das ich per Button öffne und in dem eine Combobox ist die mit Daten aus dem Blatt "Startseite" Zellen A34..A77 gefüllt werden soll.

Mein Code ist :
Private Sub UserForm_Initialize()
ComboBox1.ListFillRange = "A34:A77"
ComboBox1.ListIndex = 0
ComboBox1.SetFocus
End Sub

aber es kommt beim ausführen immer der Fehler :

Methode oder Datenobjekt nicht gefunden !

leider weis ich nicht mehr weiter drum frage ich mal hier nach.

Gruß Petra