Ein neues Zell-Kontextmen� erstellen.
Das vorhandene (Standard) Kontextmen� wird dabei gel�scht.

Sub NeuesKontextMen�()
    Dim M As CommandBarButton
    With CommandBars("Cell")
        Do While .Controls.Count > 0
            On Error Resume Next
            .Controls(1).Delete
        Loop
        Set M = .Controls.Add(msoControlButton)
        With M
            .Caption = "&Mein Kontextmen�..."
            .OnAction = "MachWas"
            .FaceId = 200
        End With
        Set M = .Controls.Add(msoControlButton)
        With M
            .Caption = "&Kontextmen� zur�cksetzen"
            .OnAction = "Reset"
            .FaceId = 44
        End With
    End With
End Sub

Sub MachWas()
    MsgBox "Hallo !", vbExclamation
End Sub

Sub Reset()
    CommandBars("Cell").Reset
End Sub