Hello,

I am looking for a way to do this.

If any cell in row J is not blank then hide the entire row.

my current code is


Sub test()
Dim cell As Range
For Each cell In Worksheets("wshopcurrent").Range("j8:j8000")
If cell.Text < "" Then
Selection.EntireRow.Hidden = True
End If
Next
End Sub

but this seems to only hide the first one it finds and then stops.

Can anyone help please?

Thanks in advance

John


--
johncassell
------------------------------------------------------------------------
johncassell's Profile: http://www.excelforum.com/member.php...o&userid=25016
View this thread: http://www.excelforum.com/showthread...hreadid=393848