Delete rows containing dates prior to TODAY()

[newshound12]

Col D contains Dates.
Each day I would like to delete rows that contain dates prior to TODAY() (the day that I am viewing the spreadsheet).

 

[onlyadrafter]

Hello,

Does this code work as required?

Sub Macro3()
For MY_ROWS = Range("D65536").End(xlUp).Row To 1 Step -1
If Range("D" & MY_ROWS) < Now -1 Then
    Rows(MY_ROWS).Delete
End If
Next MY_ROWS
End Sub

 

[newshound12]

Thanks. Works great.