Hello Viduo,

You can use a User Defined Function (UDF) in place of the Worksheet
functions. Add a VBA module to your Workbook's Project and copy this
code into it.

Example of Uing the UDF:
A1 = "abc123efg"
B1 = "=GetNumbers(A1)"
B1 will contain 123

Public Function GetNumbers(ByRef Cell As Range)

Application.Volatile

Dim I As Long
Dim N As Long
Dim X As String

For I = 1 To Len(Cell.Text)
N = Asc(Mid(Cell.Text, I, 1))
If N 47 And N < 58 Then X = X & Chr$(N)
Next I

GetNumbers = X

End Function

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=502634