Вытащить из ячейки все символы кроме цифр

Public Function ExtractString(s As String)
    Dim i As Long, str As String
    For i = 1 To Len(s)
        If InStr(1, "QWERTYUIOPASDFGHJKLZXCVBNM,.-<>=*/ ", UCase(Mid(s, i, 1))) <> 0 Then str = str & Mid(s, i, 1)
    Next
    ExtractString = Application.Trim(str)
End Function
 
Function GetNotNumericFromLeft(t As Range)
    Dim j As Integer
    For j = 1 To Len(t)
        If Not IsNumeric(Mid(t, j, 1)) Then
            If Mid(t, j, 1) <> " " Then GetNotNumericFromLeft = Mid(t, j): Exit Function
        End If
    Next j
End Function
'то же самое, что выше, но в профиль :)
Function str123(Txt As String) As String
    Dim i&
    For i = 1 To Len(Txt)
        If InStr(" 0123456789", Mid(Txt, i, 1)) = 0 Then Exit For
    Next i
    str123 = Mid(Txt, i, Len(Txt) - i + 1)
End Function
 
Function NoNum(s$)
    Static re As Object
    If re Is Nothing Then
        Set re = CreateObject("vbscript.regexp")
        re.Global = True
        re.Pattern = "\d+"
    End If
    NoNum = re.Replace(s, "")
End Function

Sub pr1()
    Dim x As Range
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\d+"
        For Each x In Selection
            x.Offset(, 1) = .Replace(x, "")
        Next
    End With
End Sub