Formatierung ändert sich

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A63")) Is Nothing Then
On Error GoTo Err
If InStr(Target.Value, ",") > 0 Then
Target.NumberFormat = "#,##0.00"
Else
Target.NumberFormat = "#,##0"
End If
Err:
Exit Sub
End If
Dim strTmp As String
If Not Intersect(Target, Range("B7:B51")) Is Nothing Then
If Target(1)  "" Then
On Error GoTo ErrExit
Application.EnableEvents = False
strTmp = UCase(Replace(Target, " ", ""))
strTmp = Left(strTmp, 2) & " " & Mid(strTmp, 3)
Target = strTmp
End If
End If
ErrExit:
Application.EnableEvents = True
End Sub