I got it!!!. All I need was to change:
c.Offset(0, 2) < "Completed" And c.Offset(0, 3) < "Completed" And _
c.Offset(0, 4) < "Completed" And c.Offset(0, 5) < "Completed"
to
c.Offset(0, 2) < "Completed" Or c.Offset(0, 3) < "Completed" Or _
c.Offset(0, 4) < "Completed" Or c.Offset(0, 5) < "Completed"
Thanks for all the help.

"Mike H" wrote:

Ayo,

The code works perfectly provided the cells do contain the text Completed.

if it isn't working for you; and clearly it isn't, then a couple of things
to consider.

1. The string comparison is case sensitive.
2, Do you really mean that ALL of these cells must not contain Completed
because that's what the code is saying i.e to be deleted ALL 4 cells must not
contain the text string.
3. have you dimmed rngAll as a range

Lastly tell us what result you getting.
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Ayo" wrote:

I need someone to take a look at this code for me and telling me what I am
doing wrong.
What I am trying to do is delete any row where this condition is true:
c.Offset(0, 2) < "Completed" And c.Offset(0, 3) < "Completed" And _
c.Offset(0, 4) < "Completed" And c.Offset(0, 5) < "Completed"
In other words, if the values in these cells are anything but complete,
delete the entire row.

For Each c In Worksheets("Ready for DDS").Range("B2:B" & SL_lRow).Cells
If c.Offset(0, 2) < "Completed" And c.Offset(0, 3) < "Completed"
And _
c.Offset(0, 4) < "Completed" And c.Offset(0, 5) < "Completed"
Then
If rngAll Is Nothing Then
Set rngAll = c
Else
Set rngAll = Union(rngAll, c)
End If
End If
Next c
If Not rngAll Is Nothing Then rngAll.EntireRow.Delete