anon,
When there's a formula in a cell, there seems to be no way to apply color to
part of it. One possibility is to put the date in the cell via a macro:
Range("A1") = "The month is " & MonthName(DatePart("m", Now))
Range("A1").Characters(Start:=14, Length:=8).Font.ColorIndex = 3
This will need to be run when the worksheet opens, and probably also when it
calculates, or other times, in case you're working across midnight and the
month changes while you work.
If you don't want to mess with a macro, you might put "The month is " in a
cell, right-aligned, and =TODAY in the adjoining cell, formatted [Red]mmmm.
If you don't have to have the month in red, you can put =TODAY() in a cell,
and format (Format - Cells - Custom):
"The month is "mmmm
