Private [COLOR="Navy"]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] oVal [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String,[/COLOR] Sp [COLOR="Navy"]As[/COLOR] Variant, oSp [COLOR="Navy"]As[/COLOR] Variant, Lg [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]If[/COLOR] Not Intersect(Range("A1:A50"), Target) [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
oVal = Target
oSp = Split(oVal, " ")
[COLOR="Navy"]With[/COLOR] Application
.EnableEvents = False
.Undo
Sp = Split(Target, " ")
Target = oVal
[COLOR="Navy"]For[/COLOR] n = 0 To UBound(Sp)
[COLOR="Navy"]If[/COLOR] Not Sp(n) = oSp(n) [COLOR="Navy"]Then[/COLOR]
Target.Characters(Lg + n + 1, Len(oSp(n))).Font.Color = vbRed
[COLOR="Navy"]Exit[/COLOR] For
[COLOR="Navy"]End[/COLOR] If
Lg = Lg + Len(Sp(n))
[COLOR="Navy"]Next[/COLOR] n
.EnableEvents = True
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]