Color by Month Date

How can i achive to color each month on a column that has dates on it, for example all june dates have to be blue and February dates in green i have this code but only works referring with current date.

this is the code im using right now

Please Login or Register  to view this content.

the problem is it only works if you are in the first of every month that have 30 days also. how can i archive this but for every month.

Another alternative solution that i just thought out is, read the cell and return the month and paste it at the end of the lane, read about DateName but don't know how to use it like so.
Any help is useful since im a newbie in vba and excel

June = Blue
Feb= Green
....
....
I want to make each month in different color, what im trying in my code is to read the name of month and make some sort of conditional statement to color each different month that is on the column, still no luck

I see what you did there, very nice worked like I wanted to thank you this will help me on my daily reports.