Fuzzy,

Here is an example

Sub addRightClick()
Dim oCtl As Office.CommandBarControl
With Application.CommandBars("cell")
On Error Resume Next
.Controls("myFunction").Delete
On Error GoTo 0
.Controls("Insert Comment").Visible = False
Set oCtl = .Controls.Add(temporary:=True)
With oCtl
.BeginGroup = True
.Caption = "myFunction"
.OnAction = "myMacro"
End With
End With
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"FuzzyLogic " wrote in message
...
I want to Add my own menu within the popup menu of the excel.
so that user can choose the functionality which I have provide by right
clicking any cell of the sheet.

Any One can help me.................


---
Message posted from http://www.ExcelForum.com/