List ShortCut Menus : Menu « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. Menu

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

 

Related examples in the same category