Generally, the month function will see a blank cell or a cell with a zero as
January. This might be the root of your problem.

You need to check and make sure the cell isn't blank.

--
Regards,
Tom Ogilvy

"Rudy Winter" wrote in message
...
I am trying to write a VBA code that changes the font color of a date if
it is a specific month. So far I have been using the If Then function, but
everytime I run the macro it changes to the first color in the VBA code and
not a different color for every month.

Can anyone help me?

Thank you,

Rudy