CommandBars(Index)

[bsquad]

I am looking for code that will generate index numbers for ALL CommanBars
I have been searching all over the place and can't seem to find it.

Reason being is I'd like to use a number rather than hardcode >> "Cell" or "List Range Popup"

for an example

Dim Bar as CommandBar
      Set Bar = Application.CommandBar("Cell")

 

[John_w]

    Dim i As Long
    For i = 1 To Application.CommandBars.Count
        Debug.Print i; Application.CommandBars(i).Name
    Next

 

[bsquad]

thank you for the response,

I am actually looking for its counter part as well - if there is a integer number or a numeric for these