I am trying to move text from column B to in front of that in column A.
A B
Jones John

Result would be
A B
John Jones
Tried this:
Private Sub NameChange()
For Each c In Selection
c.Text = c.Offset(0, 1).Text & " " & c.Text
Next c
End Sub

Am I even close (sorry I'm new to this stuff)
Sandy