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