Unhide multiple work sheets at once

[Guest]

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

 

[Mallycat]

With VBA

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

 

[Gord Dibben]

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