CommandBar Object
Sub CommandBarCount() MsgBox "There are " & CommandBars.count & " command bars" End Sub