Sub deleteemptyrows()
For i = 17 to 2 step -1 'from bottom up
If Application.CountA(Range(Cells(i, 1), Cells(i, 3))) < 1 _
Then Rows(i).Delete
Next i
End Sub

--
Don Guillett
SalesAid Software

"Slohcin" wrote in message
...
I need to delete rows when certain columns have empty cells.
ColA ColB ColC ColD
data y y
data
data y y
data y y y

What I need to do is delete row2 because columns B,C & D are empty.

How can I do this?
--
Thanks
Slohcin