Excel - Kontextmenü erweitern

Kontextmenü erweitern

Das Zell-Kontextmenü soll um einen Eintrag erweitert werden,
aus dem man dann seine eigene Routine starten kann, wie geht das ?

Const t = "Hallo, hier bin ich !"

Sub Kontextmenü_Erweitern()
   Call Kontext_Löschen
   Dim Kontext As Object
   Set Kontext = CommandBars("Cell").Controls.Add
   With Kontext
      .Caption = t
      .OnAction = "MachWas"
   End With
End Sub

Sub MachWas()
   MsgBox "HuHu", vbExclamation
End Sub
'Löschen des Eintrages
Sub Kontext_Löschen()
   On Error Resume Next
   CommandBars("Cell").Controls(t).Delete
End Sub