the font color of all cells in the active worksheet is set to red
Sub fontColor() Cells.Font.Color = vbRed End Sub