Hide rows based on a condition

I have very little expierence with writing VB and what I would like to do is
based on a condition in cell "A1" being Y hide rows 15 - 20. "A2" hide rows
25 - 30 else do nothing.

Any help would be greatly appreciated.

Kim

try

If UCase(Range("a1")) = "Y" Then Rows("10:15").Hidden = True
If UCase(Range("a2")) = "Y" Then Rows("25:30").Hidden = True

--
Don Guillett
SalesAid Software
[email protected]
"KimberlyH" <[email protected]> wrote in message
news:[email protected]...
>I have very little expierence with writing VB and what I would like to do
>is
> based on a condition in cell "A1" being Y hide rows 15 - 20. "A2" hide
> rows
> 25 - 30 else do nothing.
>
> Any help would be greatly appreciated.
>
> Kim

Hi KimberlyH

You can test this event in the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A2"), Target) Is Nothing Then
Rows("15:30").Hidden = False
If LCase(Range("A1").Value) = "y" Then Rows("15:20").Hidden = True
If LCase(Range("A2").Value) = "y" Then Rows("25:30").Hidden = True
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"KimberlyH" <[email protected]> wrote in message news:[email protected]...
>I have very little expierence with writing VB and what I would like to do is
> based on a condition in cell "A1" being Y hide rows 15 - 20. "A2" hide rows
> 25 - 30 else do nothing.
>
> Any help would be greatly appreciated.
>
> Kim