hide range of rows based on another cell condition

[DarrenL]

I want to hide rows 5-30 if cell (I8) is empty.
any thoughts?
Thank you.

 

[Don Guillett]

sub hideem()
if len(application.trim(range("i8")))<1 then
rows ("5:30").hidden=true
end if
end sub

 

[ryguy7272]

Try this:
Sub Hide()
If Range("I8") = "" Then
Rows("5:30").RowHeight = 0
End If
End Sub


Sub Unhide()

Cells.Select
Selection.RowHeight = 12.75
End Sub

HTH,
Ryan---