ShortcutText Property Example
This example displays the shortcut text for the Open command (File menu) on the Microsoft Excel Worksheet menu bar in a message box.
MsgBox (CommandBars("Worksheet Menu Bar"). _ Controls("File").Controls("New...).ShortcutText)