Hiding Sheets with VBA

[dg3000]

I have read posts similar to this but not quite what I need. I have a workbook with 40 sheets. 15 of these sheets I would like to be able to hide/unhide them by running a macro. All 15 of the sheets have names ending with "bill". Any suggestions on how to choose sheets based on a part of the name would be appreciated. Thank you.

 

[VBA Noob]

One way

Sub HideSheets()
Dim Wsht As Worksheet
    For Each Wsht In Worksheets
        Wsht.Visible = IIf(LCase(Right(Wsht.Name, 4)) = "bill", False, True)
    Next Wsht
End Sub

VBA Noob

 

[dg3000]

Perfect! Thank you.