Try this function.

Public Function FormatName(ByVal InputName As String) As String
FormatName = Right(InputName, Len(InputName) - InStrRev(Trim(InputName),
" ")) & _
", " & Trim(Left(InputName, InStrRev(InputName, " ")))
End Function

Jim Thomlinson


"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