View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Flipping Names in same cell

Sub flipnameinsamecell()
For Each c In range("a2:a22")'Selection
x = InStr(c, ",")
c.Value = Right(c, Len(c) - x) & " " & Left(c, x - 1)
Next c
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Raymie Younkin" wrote in message ...
=&RIGHT(C3,LEN(C3)-FIND(",",C3,1))&" " &LEFT(C3,FIND(",",C3,1)-1)&

Where C3 is the cell with the name formatted as

Smith, John