0

I want to identify the dates, in filtered rows in column D, from 5 years to present date and return "Append to Audit" in the corresponding row V.

I get

Compile Error: Expected: end of statement.

Dim Lastrow As Long
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("V2:V" & Lastrow) = "= IF(D2>= DATE(YEAR(TODAY())-5,MONTH(TODAY()),DAY(TODAY())), "Append to Audit", " ")"

Have attempted to add and remove spaces in special characters and redefine.

niton
  • 8,771
  • 21
  • 32
  • 52
Bran
  • 1

0 Answers0