ComboBox mit Werte füllen

ich habe eine Multipage mit mehreren ComboBoxen (ComboBox1, ComboBox2 ...). Wieso funktioniert folgender Code nicht ???

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "test"
.AddItem "Bär"
.AddItem "Wolf"
.AddItem "Zentrifuge"
End With
With ComboBox2
.AddItem "Meyer"
.AddItem "Müller"
End With
End Sub