'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