Sub ListMenuInfo()
On Error Resume Next
For Each Menu In CommandBars(1).Controls
For Each MenuItem In Menu.Controls
For Each SubMenuItem In MenuItem.Controls
Debug.Print Menu.Caption
Debug.Print MenuItem.Caption
Debug.Print SubMenuItem.Caption
Next SubMenuItem
Next MenuItem
Next Menu End Sub