Don't laugh.

Sub Test()
Columns("C").Font.Color = vbBlack
End Sub