Code to change value to ProperCase

Hi.
I am trying to automatically change Range("N8") to "ProperCase". Can anyone tell me how and where to add this to the code?
code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address <> "$F$14" And Target.Address <> "$E$3" And Not Target.Column > 12 Then
        On Error GoTo ErrHandler
        Application.EnableEvents = False
        Target.Formula = UCase(Target.Formula)
    End If
ErrHandler:
        Application.EnableEvents = True

End Sub

Thanks in advance