EXTRACT TEXT FROM ALPHANUMERIC STRING IN EXCEL WITH VBA

PRESS ALT+F11
CLICK INSERT
MODULE
THEN PASTE THIS CODE


FOR TEXT SEPRATION

Function TextOnly(rng As Range) As String

Dim intChrCnt As Integer
    For intChrCnt = 1 To Len(rng)
        If IsNumeric((Mid$(rng, intChrCnt, 1))) = False Then
            TextOnly = TextOnly & Mid$(rng, intChrCnt, 1)
        End If
    Next
End Function