Column A contains a list of dates, starting at row 21. I don't know without looking how many there will be, but it won't be more than a few hundred.
lRow = WorksheetFunction.Match(dDate, .Range("A21:A1000"), 0)
is supposed to give me the row of dDate if it exists in the column or an error if...