Referencing an array of cells to toggle sheet visibility based on each cell's content

[Gregory72]

Hi,

I'm trying to writea code that doesn't require stepping into vba to effect the outcome of themacro.

Currently, I have acode that toggles the visibility of an array of sheets if the target cellmatches certain conditions (blue or dark blue fill). This code works great.However, I want to replace the sheet array in vba with a cell array in theworkbook. This cell array would contain the values 01, 02, 03, ... , 11 in thecode below. Ideally the macro would simply check the values of these cellsevery time it is run to know what sheets it needs to show/hide.

Current code (partof it):

Dim sh
For Each sh InSheets(Array("01", "02", "03", "04","05", "06", "07", "08", "09","10", "11"))
IfTarget.Interior.Color = b Then
sh.Visible = NotVisible
ElseIfTarget.Interior.Color = Db Then
sh.Visible = Visible
End If
Next


Thanks in advancefor any help.

 

[Gregory72]

The spacing got messed up somehow. Sorry for the annoying read. Here's fixed code

Dim sh
For Each sh In Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08"))
If Target.Interior.Color = b Then
sh.Visible = Not Visible
ElseIf Target.Interior.Color = Db Then
sh.Visible = Visible
End If
Next