Hi Sandy,

Try this small modification:

Private Sub NameChange()
Dim c As Range
For Each c In Selection
c.Value = c.Offset(0, 1).Value & " " & c.Value
Next c
End Sub


---
Regards,
Norman



"Sandy" wrote in message
...
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