■

開いたブックに新しいシートを作成し、そのシート名を

シート名一覧を新しいシート上に書き出す。B列に書きます。

Sub B列にシート名を書き出せマクロ()
　　Dim i
　　For i = 2 To Sheets.Count
　　　　Cells(i, 2) = Sheets(i).Name
　　Next i
End Sub