'Fügen Sie dies unter "DieseArbeitsmappe" ein
Const Titel = "Testmenü"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Menü_löschen
End Sub

Private Sub Workbook_Open()
   Dim ML As CommandBar
   Dim Menü As CommandBarControl
   Dim MenüButton As CommandBarButton
   Call Menü_löschen
   Set ML = Application.CommandBars("Worksheet Menu Bar")
   Set Menü = ML.Controls.Add(msoControlPopup, before:=ML.Controls.Count)
   Menü.Caption = Titel
   Set MenüButton = Menü.Controls.Add
   With MenüButton
      .Caption = "Mein Makro"
      .OnAction = "MachWas"
      .Style = msoButtonCaption
   End With
End Sub

Private Sub Menü_löschen()
   On Error Resume Next
   Application.CommandBars("Worksheet Menu Bar").Controls(Titel).Delete
End Sub

'Fügen Sie dies in ein Modul ein:
Public Sub MachWas()
   MsgBox "Hallo, da bin  ich !"
End Sub