Need to insert a ","

[Lost Paul]

Got a list of addresses, but there are ~600 that need a comma "," after the last name(?) and before the post code.

At the moment, the manual process is (for each entry);
* F2
* Ctrl+left x2
* Left x1
* Comma
* Enter.

Did try recording a macro - no joy.

Any ideas?

[HansV]

Test the following on a copy of your list first.
------------------
Select the list.
Run the following macro:

Code: Select all

Sub AddComma()
    Dim rng As Range
    Dim a() As String
    Dim n As Long
    Application.ScreenUpdating = False
    For Each rng In Selection
        a = Split(rng.Value)
        n = UBound(a)
        If n >= 2 Then
            If Right(a(n - 2), 1) <> "," Then
                a(n - 2) = a(n - 2) & ","
                rng.Value = Join(a)
            End If
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

[Lost Paul]

Looks like that's done it.

Thank you