ワークシート作りすぎた。明細知りたいときのマクロ（一覧表示できるよ）

Sub ワークシート名書き出し()

Dim 索引 As Long '変数「索引」を宣言

MsgBox "ワークシートの数は" & Worksheets.Count & "です"

For 索引 = 1 To Worksheets.Count '変数「索引」に1～ワークシート全数を代入、分繰り返し

    Cells(索引, 2) = Worksheets(索引).Name  'ワークシート名を対応するB列に入力する。

Next

End Sub