Deletes lines

[Leentje]

Hi,

The next macro deletes lines if the date is in the past:
However only the odd lines are deleted, so I should add some extra code to solve this problem, but I don't see how...
Can someone help me on this problem?


Sub DeleteLines()

Dim rngCell As Range
Dim rngData As Range
Set rngData = Range("A1").CurrentRegion

For Each rngCell In rngData
If rngCell.Value < Date Then
Application.ScreenUpdating = False
rngCell.EntireRow.Delete
End If
Next

Application.ScreenUpdating = True

End Sub

[funkymonkUK]

reason for this is what it deletes the row so the row below it moves up and it does nto count that row what you need to do is prehaps use "Find" i know there is something that you can type that steps backward so it would search from the bottom up.

something like

for each cell in range step -1


something like that