VBA to delete rows based on date

Hi,

It's possible with the find command, p.e:

Set FoundCell = Range("A1:A100").Find (what:="7/18/1998")

or

Set FoundCell = Range("A1:A100").Find _
   (what:=DateValue("July 18, 1998") ,lookin:=xlFormulas)