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

WorksheetオブジェクトのCodeNameプロパティを使って、コード名を取得します。
サンプルマクロでは、シート名とコード名をメッセージボックスに表示します。

Sub Sample1()

    Dim mySeet As Worksheet

    For Each mySeet In Worksheets
    MsgBox "シート名は　:" & mySeet.Name & Chr(13) & _
         "コード名は　:" & mySeet.CodeName
    Next mySeet

End Sub

オブジェクトのコード名はオブジェクトを表すオブジェクト式の代わりに使用できます。例えば、ワークシートのコード名が "Sheet1" である場合、次の結果は同じです。

Sub Sample2()

   MsgBox Worksheets(1).Range("a1")
   MsgBox Sheet1.Range("a1")

End Sub

シート名とコード名は異なる場合もあります。シートの作成時は、シート名とコード名は同じです。しかし、シート名を変更してもコード名は変更されません。また、Visual Basic Editorのプロパティウィンドウでコード名を変更してもシート名は変更されません。