Add Control To Right-Click Cell Context Menu

[Excel Fox]

Here's the code Rasm

Private Sub AddOnRightClick()
    On Error Resume Next
 
    Dim cbrButton As CommandBarButton
 
    With Application
        .CommandBars("Cell").Controls("Calendar").Delete
        Set cbrButton = .CommandBars("Cell").Controls.Add(Temporary:=True, Before:=1)
    End With
 
    With cbrButton
       .BeginGroup = True
       .Style = msoButtonIconAndCaption
       .Caption = "Calendar"
       .FaceId = 125
       .OnAction = "ShowCalendar"
    End With
 
    Set cbrButton = Nothing
 
    On Error GoTo 0
End Sub

Private Sub DeleteOnRightClick()
    On Error Resume Next
 
    With Application
        .CommandBars("Cell").Controls("Calendar").Delete
    End With
 
    On Error GoTo 0
 
End Sub