特定の名前のシートを取り出すVBAコード

特定の名前のシートを取り出す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