VBAでワークシートの名前とオブジェクト名の取得方法

ドキュメントを作成する上で、オブジェクト名の一覧が必要になったので、取得してみた。

Sub test()
    Dim i As Long
    For i = 1 To Worksheets.Count
        Debug.Print Worksheets(i).CodeName ' オブジェクト名
        Debug.Print Worksheets(i).Name ' ワークシート名
    Next i
End Sub