If Cells(ActiveCell.Row, “D”).Font.Color = vbRed Then

[Excelnoub]

Looking to make this code work but it doesn’t do anything.
I have tried to mix it up with a code I previously had:

Please Login or Register  to view this content.

I have a conditional formatting in D5 to D20 making the Font Text Red when Cell = Today. I want that when the Font Color of column D turns Red to make the ActiveCell.Row, “A” also make the Font.Color turn RED... vbRed.

I tried the following but not working:

Please Login or Register  to view this content.

Is this possible?

[HaHoBe]

Hi, Excelnoub,

what you evaluate in the code is the normal font color while the color of the CF will not be shown (should be listed as xlAutomatic if I remember correctly).

Maybe try

Please Login or Register  to view this content.

Ciao,
Holger

[Excelnoub]

Nicely done it is perfect

Thank you HaHoBe