Jorgen Bondesen brought next idea :
Hi NG

When I'm right clicking in a cell, I want my owen menu.
I can do this.
The menu depends on text in 5, 10 og 20 consecutive cells. I'm using the
text.
When I'm clicking on e.g 3th line in right click menu ("Cell"), how can I
knew this, if I only have .OnAction = "RunMe"

If .OnAction = "RunMe_" & lCount then I must have aboute 30 macros or trap
error, because I do not have any macro, and read trapinfo or macro name and
number.

Perhaps and quite different approach?

Different approach!

If all your test values are text then you can use a delimited string to
check the contents of the cell right-click against using InStr(). This
assumes the text entered is an element of an expected list.

In a standard module declarations section:
Public Const gsValidText As String = "Text1,Text2,Text3,Text4,Text5"

I suggest you position your menu at the top of the popup so it's more
readily available to your user, AND makes your managing of the menuitem
in code a bit easier.

**Note: The dot preceeding 'CommandBars' in your Set statement isn't
necessary. (The CommandBars collection is one of the Application
globals you can access without specifying 'Application.' as the
object reference**

You can use a single proc for the OnAction and just redirect code flow
within that proc using a 'Select Case' construct that determines what
code to execute based on the menuitem's Caption.

<aircode
Sub RunMe()
Select Case CommandBars.ActionControl.Caption
Case "Text1": Call Text1Proc
Case "Text2": Call Text2Proc
Case "Text3": Call Text3Proc
'and so on...
End Select
End Sub
**Note that you could use separate procs for each text item and
redirect to there from this entry point (as shown here)
OR
You could write the code under each 'Case' and run all from here.**


You can set Caption/Visible props via the Worksheet_BeforeRightClick
event.

<aircode
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
With CommandBars("Cell").Controls("RunMe")
If InStr(1, gsValidText, Target.Value, vbTextCompare) 0 Then
.Caption = Target.Value: .Visible = True
Else
.Caption = "RunMe": .Visible = False
End If
End With
End Sub

This will make the menuitem appear only if the cell content
meets your criteria.


To build the menuitem:

In the Workbook_Open event:
Private Sub Workbook_Open()
Call AddMenus
End Sub

OR.. in a standard module:
Sub Auto_Close()
Call AddMenus
End Sub

Sub AddMenus()
' Delete the menu if it exists, then replace it
Dim NewMenu As CommandBarControl
On Error Resume Next
With CommandBars("Cell").Controls(1)
If InStr(1, gsValidText, .Caption, vbTextCompare) 0 _
Or .Caption = "RunMe" Then .Delete
End With
On Error GoTo 0
Set NewMenu = _
CommandBars("Cell").Controls.Add(Type:=msoControlB utton, _
Befo=1, Temporary:=True)
With NewMenu
.Caption = "RunMe": .OnAction = "RunMe": .Visible = False
End With
End Sub

To remove the menu:

In the Workbook_BeforeClose event:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CommandBars("Cell").Reset
End Sub

OR.. in a standard module:
Sub Auto_Close()
CommandBars("Cell").Reset
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc