Conditionally hide and unhide cell ranges

[austenr]

I need to conditionally hide and unhide ranges of cells based on a certain condition. I know it goes in the worksheet change event.

Found this code that does rows, but how do you alter it to do say C1:C15 and F1:F15 if the condition is met?

[VBA]Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$14" Then
If Target.Value = 1 Then
Rows(10).EntireRow.Hidden = True
Else
Rows(10).EntireRow.Hidden = False
End If
End If
End Sub[/VBA]

[Bob Phillips]

You can't hide individual cells, it is entire rows/columns, or nothing.

[austenr]

I was afraid of that Bob. I have borders around cells that if the rows are hidden, the remaining will look bloody awful.

[YasserKhalil]

Try this code

[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union(Range("C1:C15"), Range("F1:F15"))
If Not Intersect(Target, rng) Is Nothing Then
If Target.Value = 1 Then
Rows(10).EntireRow.Hidden = True
Else
Rows(10).EntireRow.Hidden = False
End If
End If
End Sub
[/VBA]

[austenr]

May be able to use the first code after all. how do you do multiple rows?