How to add shortcut to custom menu entry?

I have a piece of VBA code that does the following: It adds to the Worksheet
Menu Bar a control of the type msoControlPopup (i.e. a new menu), and then it
adds to this new control a control of the type msoControlButton (i.e. a new
menu item).

With

Caption = "&New menu point"

I only have to press "N" once the menu is open. To add a direct shortcut, I
wrote

Application.OnKey "+^{N}", "ShowForm"

so I can execute ShowForm by pressing Ctrl+Shift+N. I'd like to have this
displayed next to the menu item, like e.g. in the File menu where it says
"Ctrl+N" next to the "New..." item. How can this be done? I didn't find a
property or anything to do the job.

Thanks in advance,

Benjamin

Never mind, I found a solution: If an OnAction macro is attached, there is a
property ShortcutText that does exactly what I was looking for. I should add
to my defence that help isn't installed on this system yet and I have to wait
for the admin to do so ;-)

"Benjamin" wrote:

> I have a piece of VBA code that does the following: It adds to the Worksheet
> Menu Bar a control of the type msoControlPopup (i.e. a new menu), and then it
> adds to this new control a control of the type msoControlButton (i.e. a new
> menu item).
>
> With
>
> Caption = "&New menu point"
>
> I only have to press "N" once the menu is open. To add a direct shortcut, I
> wrote
>
> Application.OnKey "+^{N}", "ShowForm"
>
> so I can execute ShowForm by pressing Ctrl+Shift+N. I'd like to have this
> displayed next to the menu item, like e.g. in the File menu where it says
> "Ctrl+N" next to the "New..." item. How can this be done? I didn't find a
> property or anything to do the job.
>
> Thanks in advance,
>
> Benjamin