BULK Hiding and un-Hiding TABS

[walt1122]

Hi All, Just trying to figure out how I can get back all hidden worksheets at once. Sure I can "group" them and HIDE them but I can only do the un-Hide one at a time. I have a workbook that has tons and tons of TABs and I want to be able to have most of them hidden most of the time and just have a macro? that un-hides them if I need to see a few of them and don't want to do the one-at-a-time thing. Any ideas!

thanks

Walt

 

[lenze]

Some code like this in a module should work

Sub unhide()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Visible = xlSheetHidden Then ws.Visible = xlSheetVisible
Next
End Sub

 

[walt1122]

Thanks Lenze, I'll try it out right now.

Take Care

Walt