Split active cell when run
(make a shortcut)

Sub test()
theCell = ActiveCell.Value
For x = 1 To Len(theCell)
If Mid(theCell, x, 1) = " " Then nr = x
Next
ActiveCell.Offset(0, 1) = Mid(theCell, nr + 1, 255)
ActiveCell = Mid(theCell, 1, nr - 1)
ActiveCell.Offset(1, 0).Select
End Sub


"Marvin" skrev:

I have been given a spreadsheet with one column having approximately 1500
entries of First Name ( Some with Middle Initial ) Last name, in order to
upload this list into another program I need to have this one column become
two columns, one with all the first names and / initial if present, & the
second column with all the last names.

How do I do this without manually retyping all the names into the two new
columns?