Sub Selection_Loop()
Dim rngSelection As Range
Set rngSelection = Selection
Dim varCell As Variant

Dim intSpacePosition As Integer
Dim strFirstName As String
Dim strLastName As String

For Each varCell In rngSelection.Cells

With varCell
intSpacePosition = InStr(.Value, " ")
strFirstName = Left(.Value, intSpacePosition - 1)
strLastName = Mid(.Value, intSpacePosition + 1)

.Value = strLastName & ", " & strFirstName
End With

Next
End Sub
HTH
--
Trent Argante
[DC.J(<#>)]


"Duncan_J" wrote:

> If I got column of names
> John Doe
>
> And what to change it to
> Doe, John
>
> Is thier a way of doing this?
>
> DJ