how can I create my own shortcut menu?

[June Macleod]

I would like to customise the shortcut menu which appears when you right
click a cell. I want to be able to have Copy/Paste/Undo/Add Comments/View
Comments and Delete Comments only.

I tried setting up the menu in the BeforeRightClick worksheet function using
the example in the Help Menu and while it works there didn't seem to be a
way to delete it after I had finished with it and so the second time I tried
to run it I got an error message because "Custom" was still there. I
thought about having the name Custom update each time with a numeric value
so that the name would be unique but I am worried that I am going to end up
with tens of custom menus in any one session.

What I am really looking for is a way to set up the customised menu when I
first open the workbook and then to be able to call it up when I right-click
on a cell.

Can anyone point me in the right direction here.

Thanks

Neme

 

[Bob Phillips]

Make the others invisible

Application.Commandbars("Cell").Controls("Format Cells...").Visible = False

etc.

Put it in the workbook_Open event.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[June Macleod]

Thank you, that works well.

As I will be running this in both Excel 2000 and Excel 2003 is there any way
to determine which version of Excel is being run so that I can put in an If
statement to select which controls to hide?

Thanks again

Neme

 

[Niek Otten]

Application.Version