Hide Rows

[Martin]

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

 

[Bob Phillips]

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

 

[Mike H]

Martin,

Try

Sub sonic()
Set myrange = Range("A18:A1220")
For Each c In myrange
If IsEmpty(c) Then c.EntireRow.Hidden = True
Next
End Sub

Mike

 

[Martin]

Thank you both for your help, it is much appreciated.

Martin