[COLOR="Navy"]Sub[/COLOR] MG03Aug57
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
[COLOR="Navy"]If[/COLOR] Len(Dn) = 10 [COLOR="Navy"]Then[/COLOR]
Dn = Left(Dn, 3) & " " & Mid(Dn, 3, 3) & " " & Right(Dn, 4)
[COLOR="Navy"]ElseIf[/COLOR] Left(Dn, 1) = 1 [COLOR="Navy"]Then[/COLOR]
Dn = Left(Dn, 1) & " " & Mid(Dn, 2, 3) & " " & Mid(Dn, 4, 3) & " " & Right(Dn, 4)
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]