Dieses Beispiel erstellt einen neuen Men�eintrag
mit 2 Untereintr�gen, aus denen entsprechende Routinen gestartet
werden k�nnen:

Const MenueName = "&Mein Men�"
Const Befehl1 = "&1. Machwas"
Const Befehl2 = "&2. Machwas"

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 = MenueName

    Set Befehl = MeinMen�.Controls.Add(Type:=msoControlButton, Id:=1)
    With Befehl
        .Caption = Befehl1
        .OnAction = "Machwas1"
    End With

    Set Befehl = MeinMen�.Controls.Add(Type:=msoControlButton, Id:=1)
    With Befehl
        .Caption = Befehl2
        .OnAction = "Machwas2"
    End With
End Sub

Sub Men�_L�schen()
    On Error Resume Next
    CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Sub

Sub Machwas1()
    MsgBox "1. Routine", vbExclamation
End Sub

Sub Machwas2()
    MsgBox "2. Routine", vbExclamation
End Sub