Excel VisualBasic Script

Sub fontColor()
    Cells.Font.Color = vbRed
End Sub