Dieses Beispiel erweitert das Men� "Extras" um einen weiteren Men�punkt:

Const Men�Eintrag = "Meine eigene Routine"

Sub Men�_erweitern()
    Call Men�eintrag_l�schen
    Set CB = Application.CommandBars.ActiveMenuBar
    Set CBC = CB.Controls("Extras")
    Set CBCC = CBC.Controls.Add
    With CBCC
        .Caption = Men�Eintrag
        .OnAction = "MachWas"
        .FaceId = 59
    End With
End Sub

Sub Men�eintrag_l�schen()
    On Error Resume Next
    Application.CommandBars.ActiveMenuBar. _
       Controls("Extras").Controls(Men�Eintrag).Delete
End Sub

Sub MachWas()
    MsgBox "Hallo, da bin ich !"
End Sub