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

"Max Potters" a écrit dans le message de
...
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