Thanks very much...works great

"Tod" wrote in message
...
Assuming that the format is always going to be:

FirstName LastName

'In this example, range is A2:A100
Sub SwitchIt()
Dim Cell As Range

For Each Cell In Range("A2:A100")
If Len(Cell.Value) < 0 Then
Cell.Value = Mid(Cell.Value, Application.Find
(" ", Cell.Value, 1) + 1, 100) & " " & Left(Cell.Value,
Application.Find(" ", Cell.Value) - 1)
End If
Next Cell
End Sub

-----Original Message-----
Hi
I have along list of names, like WENDY ROCHESTER which I
want to change to
ROCHESTER WINDY
Can a kind sole tell me how?
Thanks

--
Norton Professional 2004 says this email is
clean...believe it


.