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

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