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