Sub Inventory()
Dim cb As commandBar
For Each cb In Application.CommandBars
Debug.Print cb.name
Debug.Print cb.Index
Debug.Print cb.BuiltIn
Debug.Print cb.Enabled
Debug.Print cb.Visible
Debug.Print cb.Controls.Count
Next
Set cb = Nothing
End Sub