Yes, quite simple:

With Application.CommandBars("Cell")

With .Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Change text to numbers in selected sheet range"
.OnAction = "MakeNumbers"
.FaceId = 399
End With

etc.


RBS


"MadDog" wrote in message
oups.com...
Is there any way that I can change the context menu of a cell in Excel
?

Thanks for all your help.