add a space between phone number fields

[bobpic]

I have a column of phone numbers, xxxxxxxxxx, I would like to put a space to separate for easy viewing xxx xxx xxxx. ( some of the numbers have a 1 in front, so I would like it to display x xxx xxx xxxx.
Thanks

 

[Peter_SSs]

Try a custom number format of
# 000 000 000

 

[MickG]

Alternatively try:-

[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]

Regards Mick