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

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


On Fri, 25 Apr 2008 16:01:01 -0700, Steven
wrote:

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

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

"Gord Dibben" wrote:

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


On Fri, 25 Apr 2008 16:01:01 -0700, Steven
wrote:

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

I hate the weekends.

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


Gord


On Fri, 25 Apr 2008 16:59:00 -0700, Steven
wrote:

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

"Gord Dibben" wrote:

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


On Fri, 25 Apr 2008 16:01:01 -0700, Steven
wrote:

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