サンプルマクロは、アクティヴシートのＡからＣ列に各コマンドバーの情報
を出力します。

Sub Sample()

    Dim myCmdBar As CommandBar
    Dim myRow As Long
    Dim myCell As Range
    
    Application.ScreenUpdating = False
    
    Range("A1:C1").Value = Array("番号", "インデックス", "概要")
    
    myRow = 1
    For Each myCmdBar In CommandBars
        myRow = myRow + 1
        With myCmdBar
        Set myCell = Cells(myRow, 1)
            myCell.Value = .Index
            myCell.Offset(, 1).Value = .Name
            myCell.Offset(, 2).Value = .NameLocal
        End With
    Next

    Columns("A:C").AutoFit
    
    Application.ScreenUpdating = True

End Sub