Macro Count Days Between Today's Date and Column D

I am trying to have a loop look at every cell in column "D" (starting with D3), and count the number of days ago from today. Then I need this number to be placed into column "E" in the same row.



The problem lies in the formula:
= Cells(rIndex, "D").Value & Date - Today()

With Worksheets("Re-Employment > 30")
    
    rIndex = 3
    Do While rIndex <= Cells(Rows.Count, "D").End(xlUp).Row
        Cells(rIndex, "E").Value = Cells(rIndex, "D").Value & Date - Today()
    Loop


End With

hi Gard5096. so you want a negative number? column D - today's date? switch it the other way round if you want a positive. from your formula, i see you are trying to use column D - Today. try amending it a little to:

With Worksheets("Re-Employment > 30")
    
    rIndex = 3
    Do While rIndex <= Cells(Rows.Count, "D").End(xlUp).Row
        Cells(rIndex, "E") = Cells(rIndex, "D") - Date
        rIndex = rIndex + 1
    Loop

End With

also, i'm not sure why you had the "With" & "End With" for the sheet name. codes will run based on the current sheet you are selecting (aka the activesheet) if you did not indicate the sheet name. but if you had to run in another worksheet, you should use the "." in front of the Cells code to make it work. like this in red:

With Worksheets("Re-Employment > 30")
    
    rIndex = 3
    Do While rIndex <= .Cells(Rows.Count, "D").End(xlUp).Row
        .Cells(rIndex, "E") = .Cells(rIndex, "D") - Date
        rIndex = rIndex + 1
    Loop

End With