Programming Excel with VBA and .NET

Name

Application.CommandBars([index])

Synopsis

Returns one or more command bars. The following code displays a list of the command bars with their status:

Sub TestCommandbars(  )
    Dim cb As CommandBar
    Debug.Print "Name", "Visible?", "BuiltIn?"
    For Each cb In Application.CommandBars
        Debug.Print cb.Name, cb.Visible, cb.BuiltIn
    Next
End Sub