Excel VisualBasic Script

Sub cellFont()
    Cells(1, "C").Font.Color = vbRed
End Sub