Set myrange = Range("A18:A1220")
For Each c In myrange
If c.Value = "" Then c.Entirerow.Hidden = True
Next


--
__________________________________
HTH

Bob

"Martin" wrote in message
...
Hi,

Here is my code:

Set myrange = Range("A18:A1220")
For Each c In myrange
If Value = Empty Then c.Row.Hidden = True
Next

What I am trying to do is check the value on cells A18 to A1220 and if
they
are blank or empty then hide the entire row. However I get an error
message
saying the object is required.

Can anyone point me in the right direction?

Many thanks,

Martin