you can give this a try

Option Explicit
Dim rng As Range
Sub test()
Set rng = Range("a2:a48")
With rng.Cells
If Range("a1").Value = "" Then
.Font.Color = vbWhite
Else
.Font.Color = vbBlue
End If
End With
End Sub

--


Gary


"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