Try this:
Function numit2(r As Range) As String
Dim s As String, s2 As String, C As String
s2 = ""
s = r.Value
l = Len(s)
For i = 1 To l
C = Mid(s, i, 1)
If C Like "#" Then
s2 = s2 & C
End If
Next
numit2 = s2
End Function

Or this:
Function stripNumbers(rng As Range)
Dim i As Integer
For i = 1 To Len(rng.Value)
If Mid(rng.Value, i, 1) = "0" And Mid(rng.Value, i, 1) <= "9" Then
strNum = strNum & Mid(rng.Value, i, 1)
End If
Next
stripNumbers = CDbl(strNum)
End Function


Regards,
Ryan---

--
RyGuy


"Teethless mama" wrote:

Download and install the free add-in Morefunc.xll from:
http://xcell05.free.fr/english/

...then use this formula

=REGEX.SUBSTITUTE(A1,"[A-Za-z]","")



"Hardeep_kanwar" wrote:

Hi! Everybody

i have number of alphanumric list

For ex. asde1258rfgtt125
iqewr1258erer1258
kpijs780025dfdfd789

And so on
how can i extract only numbers
For example-1258125
12581258
780025789

Thanks in Advance

Hardeep kanwar