Can someone enlighten me on whay this code only works about half of the time? I'm looking to delete the entire row in a database where the string "Delete" apprears in column A. In the database I am testing it on there is a block of 5 rows that meet this criteria. The code only deletes 3 of the 5 rows.
thanks in advance, s4

For Each ccell In wsDest.Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If ccell = "Delete" Then ccell.EntireRow.Delete
Next ccell