Worksheet per VBA auswählen

ich möchte verschiedene Eintragungen in ein selbst erstelltes Kassenbuch automatisieren.

Ich habe für jeden Monat eine Tabelle angelegt. (jeweils unter dem Monatsnamen)
In meiner UserForm wähle ich über eine ComboBox (CBMonat) das jeweilige Tabellenblatt (Worksheet) an.
Code:

Private Sub UserForm_initialize()
For i = 1 To Worksheets.Count
CBMonat.AddItem (Worksheets(i).Name)
Next i
End Sub

Private Sub CommandButton_Eintragen_Click()
Dim NameZelle As Range
Dim spalte As Variant, Zeile As Variant, CBMonat As Variant

Worksheets(CBMonat).Activate ' Monat selektieren

...
End Sub

Leider bekomme ich immer eine Fehlermeldung.
Was mache ich falsch?

Vielen Dank im Voraus

Gruß
Udo