Unhide more than one worksheet at a time
 

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
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))<

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




"DBavirsha" wrote in
message
...
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
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))<

This will unhide every sheet in your file:

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

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

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------

"DBavirsha" wrote in message
...
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
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))<

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
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))<



"Ken Wright" wrote:

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

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------

"DBavirsha" wrote in message
...
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,

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

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



"Chip Pearson" wrote:

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




"DBavirsha" wrote in
message
...
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
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))<

Dave O,

Thank you for the response.

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



"Dave O" wrote:

This will unhide every sheet in your file:

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