Catherine

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

Note: to hide multiple sheets, just select sheets by CTRL + Click then
FormatSheetHide.


Gord Dibben MS Excel MVP

On Thu, 13 Jul 2006 08:31:02 -0700, Catharine
wrote:

Is there a way to unhide multiple sheets at one time?