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