A different approach that uses code to set the conditional format method
directly on the sheet.


With Sheets("Sheet1").Range("A2:A48")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1="""""
.FormatConditions(1).Font.ColorIndex = 2
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1<"""""
.FormatConditions(2).Font.ColorIndex = 5
End With

--
Cheers
Nigel



"Corey" wrote in message
...
How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey