Selecting worksheets in a workbook based on criteria

You can loop through the sheets something like this.

Puts the Sheet name in Range A1 and makes it bold

Sub FormatSht18()
Dim Wsht As Worksheet
For Each Wsht In Worksheets
    If Wsht.Name Like "*18?*" Then
       With Wsht.Range("A1")
             .Font.Bold = True
            .Value = Wsht.Name
        End With
    End If
Next Wsht
End Sub

VBA Noob

thanks alot VBA Noob!

That works just great now and yes faster too...