特定の名前のシートを取り出すVBAコードはコチラ
Sub 売上から始まるワークシート名の一覧を取り出す() Dim i As Long 'ダミーのワークシートを一番左に新規挿入 Worksheets.Add before:=Worksheets(1) For i = 1 To Worksheets.Count '売上から始まるシート名ならば If Worksheets(i).Name Like "売上*" Then 'ダミーのワークシートのセルA1からシート名を取り出す Cells(i, 1) = Worksheets(i).Name End If Next End Sub