開いたブックに新しいシートを作成し、そのシート名を シート名一覧を新しいシート上に書き出す。B列に書きます。 Sub B列にシート名を書き出せマクロ() Dim i For i = 2 To Sheets.Count Cells(i, 2) = Sheets(i).Name Next iEnd Sub

Sub 新しいシートを挿入してシート名一覧を書き込む() Dim newSheet As Worksheet Set newSheet = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1)) newSheet.Activate Dim activeSheetName As String activeSheetName = ActiveSheet.Name Dim ws A…