try this
Sub splitemup()
For Each c in range("b2:b"&cells(rows.count,"b").end(xlup).row)' Selection
x = InStr(c, " ")
c.Offset(, 1) = Right(c, Len(c) - x)
c.Offset(, 0) = Left(c, x - 1)
Next
End Sub

--
Don Guillett
SalesAid Software

"David" wrote in message
...
I have a long column with numbers on the leftside of column then a space
then text. How do I remove the numbers to an adjacent column eg below

A1 B1
10 text xxxxx
111 textxxxx
112 textxxx etc
Would like:
A1 B1
10 textxxxxx
111 textxxxx
112 etc

regards Dave.