Macro to delete entire rows if cell value is greater than today's date

[shaikhstonevilla]

Many thanks for reading this post.
The column "H" in my excel spreadsheet contains dates. I require a macro which can delete entire rows if cell value in column H greater than today's date.

Look forward to hearing from you.

Regards,
Xiou Lee

 

[JoeMo]

Sub RemoveIfAfterToday()
Application.ScreenUpdating = False
For i = Range("H1:H" & Cells(Rows.Count, "H").End(xlUp).Row).Rows.Count To 1 Step -1
    If IsDate(Cells(i, "H")) And Cells(i, "H").Value > Date Then Cells(i, "H").EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub