Customizing popup menu

[vijayvs]

How can I customize the popup menu that comes up when you right click on any cell in a worksheet ?

On 2002-03-14 09:34, vijayvs wrote:
How can I customize the popup menu that comes up when you right click on any cell in a worksheet ?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo 1
With Application.CommandBars("Cell")
Do
.Controls(1).Delete
Loop
1:
Set temp = .Controls.Add(msoControlButton)
temp.Caption = "Test1"
temp.OnAction = "Routine1" 'put routine1 in regular module
Set temp = .Controls.Add(msoControlButton)
temp.Caption = "Test2"
temp.OnAction = "Routine2" 'put routine2 in regular module
End With
End Sub

I tried this and now all that shows up is Test1 and Test2, where did the other buttons go?

[dk]

Sorry to plagiarise Anonymous's code but try this. Just place the code in a standard module and run the macro. The two items will then be added to the shortcut menu.

Sub SetUpBar()
With Application.CommandBars("Cell")
    Set temp = .Controls.Add(msoControlButton)
    temp.Caption = "Test1"
    temp.OnAction = "Routine1"    'put routine1 in regular module
    Set temp = .Controls.Add(msoControlButton)
    temp.Caption = "Test2"
    temp.OnAction = "Routine2"    'put routine2 in regular module
End With
End Sub