Hide Tabs that contain certain text

So I'm trying to find a way to hide tabs that contain certain text. I have a report that I'm trying to standardize by updating quarter by quarter.

There are tabs that detail for Q1, tabs that are related to Q2, etc.

I want to see if it is possible to have a macro that selects and hides quarters I'm not focused on. So if I select Q1 Macro, it hides the others and only shows tabs containing "*Q1*", if I select the Q2 Macro it hides everything but "*Q2*".

If anyone has any ideas on this, it'd be very helpful.

I saw this on Stackoverflow, but it is more for making sheets visible and I'm not certain about adjusting the code.

 Sub listray()

Dim ws As Worksheet

Application.ScreenUpdating = False
    For Each ws In Sheets
        ws.Visible = LCase(ws.Name) Like "*ba*"
    Next
Application.ScreenUpdating = True

End Sub

https://stackoverflow.com/questions/...-specific-word

Thank You!

Try this:

Option Explicit

Sub listray()

Dim ws As Worksheet

Application.ScreenUpdating = False
For Each ws In Sheets
ws.Visible = Not LCase(ws.Name) Like "*ba*"
Next
Application.ScreenUpdating = True

End Sub

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional.)