Hide Sheets Except with wild Card

[menor59]

Heres My Code...

Sub HideDatedSheets()
Dim wb As Workbook
Dim ws As Worksheet
Dim dDate As Date


Set wb = ActiveWorkbook
dDate = DateAdd("d", -Weekday(Date) + 1, Date)
For Each ws In wb.Sheets
    If Trim(ws.Name) = Format(dDate, "MMM DD, yyyy") Or _
        Trim(ws.Name) = Format(dDate + 7, "MMM DD, yyyy") Or _
        Trim(ws.Name) = Format(dDate - 7, "MMM DD, yyyy") Or _
        Trim(ws.Name) = Format(dDate - 14, "MMM DD, yyyy") Or _
        Trim(ws.Name) = Format(dDate - 21, "MMM DD, yyyy") Or _
        Trim(ws.Name) = Format(dDate - 28, "MMM DD, yyyy") Or _
        Trim(ws.Name) = "Union*" Or _
        Trim(ws.Name) = "Report*" Or _
        Trim(ws.Name) = "Blank" _
        Then ws.Visible = True Else ws.Visible = False
Next
End Sub

So what im trying to do is keep the Union* sheets shown as well as the Report* sheets shown. But i believe i have the code wrong because they are not showing up when the work book opens...

Trim(ws.Name) = "Union*" Or _
Trim(ws.Name) = "Report*" Or _

Thoughts??

Thank you in advance

 

[Jonmo1]

Just as a matter of curiosity, how many other sheets are there that you're hiding?
Is there any type of naming convention pattern to those sheets?
Might it be easier to test for the names of the sheets you DO Want Hidden?

 

[menor59]

Understood. When its all said and done at the end of the year there could be 52 Sheets, Plus the Blank, Union Sheet, and the Report sheet. Hense up above i wanted to keep the last 5 weeks, Blank, Report and Union Viewable, but the wild card trigger might not be correct for the Report or Union sheets. They are in the work Book but they are hidden. the rest Hidden

 

[Jonmo1]

Try

        Left(Trim(ws.Name),5) = "Union" Or _
        Left(Trim(ws.Name),6) = "Report" Or _

 

[menor59]

Thank you!