Private sub reverseNames
Dim myArr as Variant
With Sheets("MySheet")
myArr= Split(.Range("A1"), ",")
.Range("B1)= myArr(1) & "," myArr(0)
End With
End sub
[\code][/QUOTE]
First off, you responded to a thread that was almost 12 years old. Second, you alluded to using a loop, but then did not do so in your code, so your code would be at minimum two code lines longer. Once you add them in, then I would say to you "way too much code".:diablo: Assuming the cells in Column A have been selected (what the code you responded to assumed), this would produce the desired result in Column B...
[CODE][table="width: 500"]
[tr]
[td]Sub ReverseNames()
Selection.Offset(, 1) = Evaluate(Replace("IFERROR(INDEX(MID(@&"",""&@,FIND("" "",@),LEN(@)+1),0),"""")", "@", Selection.Address))
End Sub[/td]
[/tr]
[/table]