Mega Code Archive

 

Categories / VisualBasic Script / Application

 

List ShortCut Menus

Sub ListShortCutMenus()     Application.ScreenUpdating = False     For Each myCommandBar In CommandBars         If myCommandBar.Type = msoBarTypePopup Then             Debug.Print myCommandBar.Index             Debug.Print myCommandBar.Name             For col = 1 To myCommandBar.Controls.Count                 Debug.Print myCommandBar.Controls(col).Caption             Next col         End If     Next myCommandBar End Sub