Sub ListShortCutMenus()
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