Button auf Commandbar(1)

Möchte auf der Haupt-Menue-Leiste einen Button plazieren, der dann ein Makro aufruft.

Dieses habe ich folgendermaßen gemacht:

Sub Button()

Set Menue = Application.CommandBars(1)
Set Knopf = Menue.Controls.Add(Type:=msoControlButton)

With Knopf
.BeginGroup = True
.Caption = "Schaltfläche 1"
.OnAction = "MySub"
Menue.Visible = True
End With

End Sub

Ein Button wird produziert, nur steht nicht der unter caption angegebene Name drauf. Der Button bleibt leer.

Was mache ich falsch?

Für Hilfe wäre ich sehr dankbar,
Ralf