try this

Sub findnuminstrall()
For Each c In Selection
For i = 1 To Len(c)
If Mid(c, i, 1) Like "*[0-9]*" Then Exit For
Next i
c.Offset(, 1) = Left(c, i - 1)
c.Offset(, 2) = Right(c, Len(c) - i + 1)
Next c
End Sub

--
Don Guillett
SalesAid Software

"Aaron" wrote in message
...
Hi Everyone,
I have thousands of cells with names and addresses, and each cell combines
both. I'd like to separate "Jane Doe 123 Street Road" into "Jane Doe" in
one
column then the rest of the address in another. I've tried text to
columns
and the formulas =LEFT, =MID, etc None of these have worked because
everyone's name is a different number of characters. Any help is greatly
appreciated.
Thank you,
Aaron