Excel 2007 : Hiding a particular worksheet dependant upon a field

**PeterF** · 07-05-2009, 04:47 AM

Hi, I'm using excel 2007 and in a particular file have > 180 sheets. Could I have some help on hiding those sheets that have a "0" (Zero) in a cell on the same sheet please.

Hence reduce tabs to those relevant in the file.

Thanks very much - Peter F.

**mudraker** · 07-05-2009, 07:32 AM

What cell?

**PeterF** · 07-05-2009, 07:40 AM

hello, the same cell in each of the 180 worksheets - B1.

If it's a 1 then display the worksheet / tab, if a 0 then it's hidden

Thanks

**mudraker** · 07-05-2009, 09:04 AM

I don't have Excel 2007 but as far as I know this will work - It works for 2003

Sub SheetsVisibiltySetting()
   Dim wS As Worksheet
   For Each wS In Worksheets
      Select Case wS.Range("b1").Value
      Case 1
         wS.Visible = False
      Case 0
         wS.Visible = True
      End Select
   Next wS
End Sub