Sub Sample2()
    Dim Sh As Worksheet
    Dim ArrayShName() As String
    Dim i As Long
    
    '動的配列を初期化
    ReDim ArrayShName(0)
    
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name Like "売上*" Then
            '配列の内容を保持したままシート名を配列に追加する
            ReDim Preserve ArrayShName(i)
            ArrayShName(i) = Sh.Name
            i = i + 1
        End If
    Next Sh
    
    '指定した名前のシートがあるか確認
    If ArrayShName(0) = "" Then Exit Sub
    
    'シート名を格納した配列変数を指定してSelect
    Worksheets(ArrayShName).Select
End Sub