シート名の一覧を作成するマクロ

VBA（Visual Basic for Applications）でマクロをコーディングすれば、シート名の一覧を簡単に作成することができます。

▼シート名の一覧を作成するマクロ
Sub ListSheetsName()
　Dim objSheet As Object
　Dim intLoop As Integer

　intLoop = ActiveCell.Row

　For Each objSheet In ActiveWorkbook.Sheets
　　ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name
　　intLoop = intLoop + 1
　Next

End Sub
上記のSubプロシージャを、VBE（Visual Basic Editor）を起動して標準モジュールに貼り付け、
リストを作成したいワークシート上でListSheetsNameマクロを実行すると、シート名の一覧が作成されます。

For Each文で「ActiveWorkbook.Sheets」と記述することによって、
ワークシート・グラフシートいずれも処理の対象としています。

グラフシート名が不要でワークシート名だけを一覧にしたければ「ActiveWorkbook.Worksheets」に、
逆にグラフシート名だけを一覧にするのであれば「ActiveWorkbook.Charts」としてください。