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

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---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"DarrenL" wrote:

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

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


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

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