Sub ShowCommandBarNames()
Cells.Clear
Row = 1
For Each myCommandBar In CommandBars
Cells(Row, 1) = myCommandBar.Index
Cells(Row, 2) = myCommandBar.Name
Select Case myCommandBar.Type
Case msoBarTypeNormal
Cells(Row, 3) = "Toolbar"
Case msoBarTypeMenuBar
Cells(Row, 3) = "Menu Bar"
Case msoBarTypePopUp
Cells(Row, 3) = "Shortcut"
End Select
Row = Row + 1
Next myCommandBar
End Sub