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
Format>Sheet>Hide.
Gord Dibben MS Excel MVP