Sub Macro1()

Dim sheet As Worksheet
For Each sheet In Worksheets
sheet.Visible = True
Next
End Su

--
Bearacad

-----------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...fo&userid=3501
View this thread: http://www.excelforum.com/showthread.php?threadid=55626