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


"JWR" wrote in message
...
Great Thanks for your help!

"Chip Pearson" wrote:

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


"JWR" wrote in message
...
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.