filtering out text from an alphanumeric string

A UDF like this would do the trick:

Public Function NoNumbers(rngMyRange As Range) As String

Dim lngMyCount As Long

For lngMyCount = 1 To Len(rngMyRange)
   
    If Not IsNumeric(Mid(rngMyRange, lngMyCount, 1)) Then
         
        NoNumbers = NoNumbers & Mid(rngMyRange, lngMyCount, 1)
        
    End If
    
Next lngMyCount

NoNumbers = Trim(NoNumbers)

End Function

Dom