'' *******************************************************
'' Purpose : Report current visibility status of each sheet
'' Written : Andy Wiggins - Byg Software Ltd
''
Sub ReportConditionOfEach()
Dim ws As Worksheet
Dim lstr_State As String
For Each ws In Worksheets
Select Case Sheets(ws.Name).Visible
Case xlSheetVisible
lstr_State = "Visible"
Case xlSheetHidden
lstr_State = "Hidden"
Case xlVeryHidden
lstr_State = "Very Hidden"
Case Else
lstr_State = "Oops"
End Select
Debug.Print ws.Name & " : " & lstr_State
Next
End Sub
|
