How do I unhide multiple work sheets at once in Excel 2003?

With VBA

Sub UnHideAll()
Dim ws As Object
Set ws = ActiveWorkbook.Sheets
For Each Sheet In ws
Sheet.Visible = True
Next Sheet
End Sub


--
Mallycat
------------------------------------------------------------------------
Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514
View this thread: http://www.excelforum.com/showthread...hreadid=561687

A macro to unhide all sheets.

Sub Show_Sheets()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Visible = True
Next i
End Sub


Gord Dibben MS Excel MVP

On Fri, 14 Jul 2006 21:45:02 -0700, goldenard
wrote:

How do I unhide multiple work sheets at once in Excel 2003?