Sub Split2()
Dim C As Range
Dim j As Integer
Dim k As Integer
For Each C In Selection
j = 1
Do While Not (IsNumeric(Mid(C.Value, j, 1))) And j <= Len(C)
j = j + 1
Loop
k = j
Do While IsNumeric(Mid(C.Value, k, 1)) And k <= Len(C)
k = k + 1
Loop
'C.Offset(0, 1) = Left(C, j - 1)
C.Offset(0, 2) = Mid(C, j, k - j)
' C.Offset(0, 3) = Mid(C, k, Len(C) - (k - 1))
Next C
End Sub