Neues Menü dauerhaft erstellen

Sub Menü_Erstellen()
Dim MB As Object, MeinMenü As Object, Befehl As Object
Call Menü_Löschen
Set MB = CommandBars.ActiveMenuBar
Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = "&Mein Menü"
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&1. Sicherung auf C:\"
.OnAction = "Sicherungc"
End With
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&2. Sicherung auf CD"
.OnAction = "SicherungCD"
End With
End Sub