Unhiding Sheets

Posted by Carol on August 27, 2001 11:29 AM

Is there a fast way to unhide hidden worisheets. You can hide several at one time but I can't figure out how to unhide several at once.

Posted by Barrie Davidson on August 27, 2001 11:42 AM

Carol, here's a quick way, via VBA, to unhide all your sheets in a workbook.

Sub Unhide_ALL_sheets()
'Written by Barrie Davidson
Dim SheetCount As Integer
Dim Counter As Integer
SheetCount = ActiveWorkbook.Sheets.Count
Counter = 1
Do Until Counter > SheetCount
Sheets(Counter).Visible = True
Counter = Counter + 1
Loop
End Sub

If you need any help applying this, let me know via this board.

Regards,
Barrie