Back

Sub Unhide_all_sheets()
Dim c, counter As Integer
c = ActiveWorkbook.Sheets.Count
If MsgBox("Unhide all VERYHIDDEN sheets also", vbQuestion + vbYesNo) = vbYes Then
    For counter = 1 To c
        Sheets(counter).Visible = True
    Next counter
Else
    For counter = 1 To c
        If Sheets(counter).Visible <> xlVeryHidden Then Sheets(counter).Visible = True
    Next counter
End If
End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added November, 2001