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