-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
add a space between phone number fields
- Thread starter bobpic
- Start date
Alternatively try:-
Regards Mick
Code:
[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]
Upvote
0
Similar threads
- Question
