シート名を取得して一覧を作成するExcelマクロ:エクセルマクロ・Excel VBAの使い方/Sheets・WorksheetFor～Nextループでシート名一覧を作成するサンプルマクロ 以下のようなマクロで、アクティブなブックの先頭に「シート名一覧」というワークシートが挿入され、A列にシート名の一覧が作成されます。 Sub シート名一覧を作成する_1() Dim i As Long Sheets.Add Before:=Sheets(1) ActiveSheet.Name = "シート名一覧" For i = 2 To Sheets.Count Cells(i - 1, "A").Value = Sheets(i).Name Next i End Sub アクティブなブックの先頭（左端）にシートを挿入して、 Sheets.Add Before:=Sheets(1) 名前を「シート名一覧」に変更してから、 ActiveSheet.Name = "シート名一覧" 元々の1枚目のシートから最後のシートの枚数分For～
