Context menu of Cell

Is there any way that I can change the context menu of a cell in Excel
?

Thanks for all your help.

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" <bikash.rai@gmail.com> wrote in message
news:1141461953.894330.139580@v46g2000cwv.googlegroups.com...
> Is there any way that I can change the context menu of a cell in Excel
> ?
>
> Thanks for all your help.
>

Dim oCtl As CommandBarControl

With Application.CommandBars("Cell")

On Error Resume Next
.Controls(20).Delete
On Error GoTo 0

With .Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "My Button"
.Style = msoButtonCaption
.OnAction = "myMacro"
End With

End With


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"MadDog" <bikash.rai@gmail.com> wrote in message
news:1141461953.894330.139580@v46g2000cwv.googlegroups.com...
> Is there any way that I can change the context menu of a cell in Excel
> ?
>
> Thanks for all your help.
>