スキルアップ・問題解決なら、モーグにおまかせ！

次のサンプルは､すべてのコマンドバーの英語名とローカライズされた名前をイミディエイトウィンドウへ出力します。
英語名はNameプロパティ、ローカライズされた名前はNameLocalプロパティで取得します。

Sub CommandBarInfo()
    Dim myCmd  As CommandBar
   
    For Each myCmd In CommandBars
        With myCmd
            Debug.Print .Name
            Debug.Print .NameLocal & Chr(13)
        End With
    Next
    
End Sub