次のサンプルは､すべてのコマンドバーの英語名とローカライズされた名前を
イミディエイトウィンドウへ出力します。
　英語名は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