S
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
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