Unhiding WorkSheets

[DGB]

Hi,


I have a macro which, based on certain criteria, hides certain workshheets using the VBA property xlSheetVeryHidden. Excel does not reognize the Unhide command to re-display the sheets when this property is used.

Does anyone know how to write a macro that would unhide the Hidden sheets?

Thanks in advance for your help.

 

[Yard]

You mean

Sheets("Sheet1").Visible=xlSheetVisible

 

[DGB]

Thank you Yard

So if the critera for hiding the cell is A2>0, what would the code look like to scan all sheets in the workbook and unhide those previously hidden?

 

[Yard]

Huh? Do you mean:

If the cell value of A2 in any sheet is >0 then unhide that sheet, otherwise hide it?

Sub ShowHide()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Range("A2") > 0 Then
        ws.Visible = xlSheetVisible
    Else
        ws.Visible = xlSheetVeryHidden
    End If
Next ws
End Sub

 

[DGB]

Hi yard,

Thank you for helping me. Unfortunately I can not seem to get this to work. Below is the macro with which I am coloring the tab of sheets where cell A2>0, printing them and hiding the others. What I would like is to reverse all of these actions. (Uncolor and Unhide all tabs. I understand I can not reverse a print). I cannot seem to get your macro to apply to sheets or tabs already hidden.

What am I doing wrong?

Dim ws As Worksheet

For Each ws In Worksheets
With ws
If .Range("a2").Value > 0 Then
.Tab.ColorIndex = 10
.PrintOut
Else: ws.Visible = xlSheetVeryHidden
End If
End With
Next ws
Sheets("QuoteSummary").Select
Application.ScreenUpdating = True
End Sub