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