Help: How do i calculate 40days after a date in cell and change that cell color when it hits the 40 day mark.

[Sha]

Hi there,

I am really new with all this. I am trying to get any cells in col J to change font/cell color once the date in col J hits more than 40 days. But the VBA codes doesn't seem to work.
Below is the code I have...

Sub HighlightCells()

Dim DischargeDate As Date: Set DischargeDate = Range("J1:J3000")

Dim fortyDys As Integer: Set fortyDys = 40



For Each DischargeDate In DischargeDate.Cells

If DischargeDate.Value > DischargeDate.Value + fortyDys Then

DischargeDate.Interior.ColorIndex = 3

End If

Next DischargeDate



End Sub

 

[Peter_SSs]

Duplicate to: HELP: Color cell when date is more than 40 days

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.