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