Hot Key on Menu Bar

[Steven]

Private Sub Workbook_AddinInstall()
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("WB Example").Delete
Set cControl = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With cControl
..Caption = "WB Example"
..Style = msoButtonCaption
..OnAction = "ShowWorkbooks"
End With

I want the "x" of .Caption = "WB Example" to be the hot key.

How do I do this?

Thank you,

Steven

 

[Gord Dibben]

With cControl
..Caption = "WB E&xample" 'note the addition of the ampersand
..Style = msoButtonCaption
..OnAction = "ShowWorkbooks"
End With

Alt + x will run the ShowWorkbooks macro


Gord Dibben MS Excel MVP

 

[Steven]

Thank you, I really fee silly after that. I was putting it on the wrong
line. Time for the weekend.

 

[Gord Dibben]

I hate the weekends.

I lose my Monday-Friday Senior Rate preferred tee-times<g>


Gord