Sub ShowAllToolbarControls()
Cells.Clear
Row = 1
For Each myCommandBar In CommandBars
If myCommandBar.Type = msoBarTypeNormal Then
Cells(Row, 1) = myCommandBar.Name
For Each ctl In myCommandBar.Controls
Cells(Row, 2) = ctl.Caption
Row = Row + 1
Next ctl
End If
Next myCommandBar
End Sub