OnAction procedure

[Max Potters]

Hi all,

I would like to use the OnAction procedure, but I want to give an argument
to it as well... For example:

..OnAction = "module(i)"

I don't know for sure if this method works, but I guess not. Does anyone
know how to put an argument in the onaction statement?

thanks in advance

Max

 

[Bob Phillips]

Max,

Like this

..OnAction = "module " & i

 

[Tom Ogilvy]

..OnAction = "'" & ThisWorkbook.Name & "!MyMacro i'"

 

[Tom Ogilvy]

of course if you want i to be a variable

..OnAction = "'" & ThisWorkbook.Name & "!MyMacro " & i & "'"

 

[Michel Pierron]

Hi Max,
For each item:
..OnAction = ThisWorkbook.Name & "!MyMacro"

' Example for menu (2 items / separator / 1 item)
Sub MyMacro
Select Case Application.Caller(2)
Case 1: ThisWorkbook.Save
Case 2: ActiveWindow.SelectedSheets.PrintPreview
' NewGroup then add 1
Case 4: ThisWorkbook.Close False
End Select
End Sub

Regards,
MP