Sub CreateRightClick()
With Application.CommandBars("Cell")
With .Controls.Add
.Caption = "Remove"
.OnAction = "Remove"
End With
With .Controls.Add
.Caption = "Remove2"
.OnAction = "Remove2"
End With


End With
End Sub


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"stragger" wrote in message
...
How to customize the right-click button to include macros, or other
frequently used functions?