I need to hide empty rows

Col 1 has the date, Col 2 may/may not be empty

This works:



Sub Testing()

Count = 1

While Count < 20

If Cells(Count, 2) = "" Then

Rows(Count).EntireRow.Hidden = True

Count = Count + 1

End If

Wend

End Sub



I now need to make sure every cell in Cols 2-10 is empty before hiding the
row - of course this does not work:



If Range(Cells(Count, 2), Cells(Count, 10)) = "" Then



How do I test Cols 2-10 without a 'if' for each cell?



Thanks



Camlad