Try this UDF:

Function noname(r As Range) As Variant
v = r.Value
For i = 65 To 90
v = Replace(v, Chr(i), "")
Next
For i = 97 To 122
v = Replace(v, Chr(i), "")
Next
noname = Evaluate("=" & v)
End Function


use in worksheet like:
=noname(A1)
--
Gary''s Student - gsnu200719