Application VisualBasic Script

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