You could use this UDF. It returns a string, so you would use it as
=Value(StripTxt(A1))
If you're new to VBA, read this first:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
The Function:
Function StripTxt(a As String) As String
' Strips all non-numeric characters from a string
' Returns a string, not a number!
Dim i As Long
Dim b As String
For i = 1 To Len(a)
b = Mid$(a, i, 1)
If ((Asc(b) 47 And Asc(b) < 58) Or b = Application.DecimalSeparator) Then StripTxt = StripTxt + b
Next i
End Function
--
Kind regards,
Niek Otten
"diana" wrote in message ...
Is there a function that will read the numbers only of an alphanumeric cell:
Cell that contains a word and number.
Appreciate anybody's help in this respect.