[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If Not[/COLOR] Intersect(Target, Range("D4")) [COLOR=blue]Is Nothing Then[/COLOR]
[COLOR=blue]With[/COLOR] Target
[COLOR=blue]If[/COLOR] Len(.Value) > 3 [COLOR=blue]Then[/COLOR] .Value = Left(.Value, 3)
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End Sub[/COLOR]