try this
Sub getnumberfromstring()
For Each C In Selection
On Error Resume Next
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then Start = i: Exit For
Next
For i = Len(C) To t Step -1
If IsNumeric(Mid(C, i, 1)) Then stopl = i + 1: Exit For
Next
C.Offset(, 1) = Left(C, Start - 1)
C.Offset(, 2) = Mid(C, Start, stopl - Start)
Next C
--
Don Guillett
SalesAid Software
"ΊΌΦέΘΛ" wrote in message
...
Letter of alphabet and numeral separation
If A1= asd123dsa, how to get the B1= asddsa, C1=123