Sub ShowAllToolbarControls()
For Each myCommandBar In CommandBars
If myCommandBar.Type = msoBarTypeNormal Then
Debug.Print myCommandBar.name
For Each ctl In myCommandBar.Controls
Debug.Print ctl.Caption
Next ctl
End If
Next myCommandBar
End Sub