Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D11:D" & [D60000].End(xlUp).Row)) Is Nothing Then Exit Sub
Dim C As Range
For Each C In Range(Target.Address)
C.Font.ColorIndex = IIf(C <> "so_cr_terms", 3, 0)
Next
End Sub