Menüleisten erstellen

Habe ein Problem.

Ich habe es wohl hinbekommen, mir ein eigenes Menü zu erstellen mit VBA. Nun möchte ich zusätzlich ein einzelnes Menüelement neben diesem Menü erstellen, dass beim klicken ein bestimmtes Makro ausführt.

Hatte es so versucht, dass ich auf "Makro aufzeichnen" gegangen bin und die Schritte ausgeführt habe mit Umbenennung, Makrozuweisung etc.

Das Makro sah dann so aus:

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
msoControlButton, ID:=2949, Before:=12

Er erstellt mir also eine leere Schaltfläche.

Wie kann ich diese denn mit VBA umbenennen und auch ein Makro zuweisen??

Schonmal vielen Dank für eure Hilfe,

Ramin