Hi ndendrinos,

Try:[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D")) Is Nothing Then Exit Sub
Select Case UCase(Intersect(Target, Range("D")))
Case "Y"
Target.Offset(0, -1).Font.ColorIndex = 3
Target.Offset(0, -2).Font.ColorIndex = 3
Target.Offset(0, -3).Font.ColorIndex = 3
Case "N"
Target.Offset(0, -1).Font.ColorIndex = -4105
Target.Offset(0, -2).Font.ColorIndex = -4105
Target.Offset(0, -3).Font.ColorIndex = -4105
End Select
End Sub[/VBA]