Unhide more than one worksheet at a time

[Guest]

I have a worksheet that contains 50 hidden worksheets. Is there a method or
macro that somebody knows of where I can unhide more than one workseet at a
time?

Thanks, Dave
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))><

 

[Chip Pearson]

Dave,

Try the following code:

Sub AAA()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Visible = True
Next WS
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




message
news:[email protected]...

 

[Dave O]

This will unhide every sheet in your file:

Sub UnHideHiddenSheets()
dim SheetName
For Each SheetName In Sheets
SheetName.Visible = True
Next SheetName
End Sub

 

[Ken Wright]

If you have 50 hidden sheets then you are likely to want to hide them again,
so maybe a macro that toggles the status of each sheet. Run it once and it
will show all the hidden ones and hide the visible ones. Run again and it
will reverse it putting it all back as it was.

Public Sub ToggleHidden()

Dim wkSht As Worksheet

For Each wkSht In ActiveWorkbook.Worksheets
With wkSht
If .Visible = False Then
.Visible = True
Else
.Visible = False
End If
End With
Next wkSht

End Sub

 

[Guest]

Thanks for going the extra mile. After I posted the message, I thought I
should have asked how to also write a macro to hide the sheets that I had
open. Toggling the sheets is an even better idea.

Thanks again,
Dave
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))><

 

[Guest]

Chip,

Thanks for the reply. I will try all the replies and use one of them.

Dave
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))><

 

[Guest]

Dave O,

Thank you for the response.

Dave
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))><