one way:

Dim i As Long
For i = lastrow To 1 Step -1
If Application.CountA(Cells(i, 1).Resize(1, 3)) = 0 Then
Rows(i).Delete
LineCount = LineCount + 1
End If
Next i




In article ,
"Gary Keramidas" wrote:

was wondering if this was possible using an array.
i have lastrow set to i
i would like to set a variable to either column "A", "b" or "C" (col below)
so if any of the 3 columns in row i are blank, the row is deleted.
i know i can write some if's to handle it, just trying to gain some
practice with arrays.
linecount just tells me how many rows were deleted

col = (Array("A", "B", "C")) (i know this is wrong, just an example)
For i = lastrow To 1 Step -1

If Array(Cells(i, col)) = "" Then
Cells(i, col).EntireRow.Delete
LineCount = LineCount + 1
End If
Next