Is there a way to move an entire column to in-between existing columns
without getting the error message, "Do you want to replace contents in
destination cells?" and also without VB? I'm no use with coding...

What I've been doing is to insert new blank column, highlight and drag one
of my existing column to this new column, then delete the old column.

"Norman Jones" wrote:

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