Unhide Multiple Worksheets

Posted by Tim on February 05, 2002 7:53 AM

I am using a workbook which has many worksheets - many of which are not used often so I have been using the hide function. You can select many sheets and then hide using right click.

When it comes to unhiding these sheets though I can only seem to do it through Format>Sheet>unhide fo each individual sheet - which takes for ever.

Does anyone know a way to unhide mulitple sheets? Maybe using a macro even to unhide all?

Posted by faster on February 05, 2002 7:56 AM

This should do it:

Sub UnhideSheets()
Dim i
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub