Also try following. Select the cell you want to start to separate, then run the codes.
===============================
Sub Separeate()
Dim i As Integer
Dim x1, x2
Dim Number As Long
Dim Text As String
Dim myCell As Range
Set myCell = ActiveCell
On Error Resume Next
Do Until myCell = ""
For i = 1 To Len(myCell)
x1 = Mid(myCell, i, 1)
x2 = CInt(Mid(myCell, i, 1))
If Err Then
Text = Text & x1
Err.Clear
Else
Number = Number & x2
End If
Next
With myCell
.Offset(0, 1) = Number
.Offset(0, 2) = Text
Set myCell = .Offset(1, 0)
End With
Text = ""
Number = 0
Loop
End Sub
=====================================
[/code]