Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("a2:n65000")) Is Nothing Then
If IsNumeric(Target.Value) And Len(Right(Target, 2)) > 1 And Len(Target) > 10 Then Target = Format(Target, "000 000 0000")
End If
Application.EnableEvents = True
End Sub