The following example would change the font color for cells in columns E, F, I, J, K, or N

For continuous columns use first:last designations such as A:D for columns A through D. For single columns use column:column such as A:A for just the A column.

[vba]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:F,I:J,N:N")) Is Nothing Then
Target.Font.Color = vbRed
End If
End Sub
[/vba]