Macro to Hide Sheets based on Tab Name

[TrimFunction]

I have several tabs/worksheets in my workbook with supporting data/lookups/values etc.

I usually unhide all worksheets with a simple macro to update my report, then manually hide them before I send out to an audience.

Is there functionality that will hide worksheets bases on the tab name?

example: if the worksheet/tab names were called "lookup.hid", "oss.hid", "2QData.hid", could a macro hide all sheets with ".hid" in the title?

thanks!

 

[JoeMo]

Maybe:

Sub HideCertainSheets()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Name Like "*.hid" Then Sht.Visible = xlHidden
Next Sht
End Sub

 

[Fluff]

How about

Sub Hideshts()
   Dim ws As Worksheet
   
   For Each ws In Worksheets
      If Right(ws.Name, 4) = ".hid" Then ws.Visible = xlSheetHidden
   Next ws
End Sub

 

[TrimFunction]

Thanks @JoeMo, this code worked perfectly!

good quote in your signature, here's another one that I really like:

"When I was a boy of fourteen, my father was so ignorant I could hardly stand to have the old man around. But when I got to be twenty-one, I was astonished at how much he had learned in seven years." - Mark Twain (allegedly)

 

[TrimFunction]

thanks @Fluff for you help with this, i used JoeMo's script, but i appreciate you posting.

 

[JoeMo]

You are welcome - thanks for the reply.