TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ShowMeTheMenuCommands()

Dim X As Integer
Dim Y As Integer

With Application.CommandBars("Menu Bar")
For X = 1 To .Controls.Count
Debug.Print .Controls(X).Caption
For Y = 1 To .Controls(X).Controls.Count
Debug.Print vbTab & .Controls(X).Controls(Y).Caption
Next Y
Next X
End With

End Sub