Range("a1").Select
While ActiveCell < ""
If ActiveCell + ActiveCell.Offset(0,1) < 1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend

--
Regards,
Tom Ogilvy

"Steve R" wrote in message
...
In the code below, I am able to delete rows that have a
value of less than one. What I really want to do is to
delete rows where (A1 + B1)<1, (A2 + B2)<1, and so on.

How do I write a simple formula like the above that is
similar to the below? Thanks in advance.



Range("a1").Select
While ActiveCell < ""
If ActiveCell < 1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend