Function GetCommandBarNames()

  Dim cbarMenu As CommandBar

 Debug.PrintCommandBars.Count

  For Each cbarMenu In CommandBars

   Debug.PrintcbarMenu.Name; _

       vbTab; cbarMenu.Enabled; _

       vbTab; cbarMenu.Type

  Next

End Function