Selecting worksheets in a workbook based on criteria

or maybe

Sub josnah()
Dim i As Integer, flg As Boolean
    For i = 1 To Sheets.Count
    If Sheets(i).Name Like "*18?*" Then
        If Not flg Then
            Sheets(i).Select
            flg = True
        Else
            Sheets(i).Select False
        End If
    End If
    Next

End Sub

VBA Noob