a way to conditionally hide tabs in a range

J

JWR

I’m not sure if this is possible but I’m searching for a solution using a
control(selection of a cell) or button to take a range of worksheets, to
first unhide all work sheets, then check a condition in one cell on each of
the worksheets if the condition is positive then hide that sheet.
 
C

Chip Pearson

Try something like the following:

Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Range("A1").Value = "Show" Then
WS.Visible = xlSheetVisible
Else
WS.Visible = xlSheetHidden
End If
Next WS


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
J

JWR

Great Thanks for your help!

Chip Pearson said:
Try something like the following:

Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Range("A1").Value = "Show" Then
WS.Visible = xlSheetVisible
Else
WS.Visible = xlSheetHidden
End If
Next WS


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
Click to expand...
 
C

Chip Pearson

The code assumes that there will always be at least one sheet
that will be made visible. A workbook cannot have 0 visible
worksheets.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Top