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
Bookmarks