Use this UDF:

Public Function ReturnNumerals(rng As Range) As String
Dim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng.Value
For i = 1 To Len(sStr)
sChar = Mid(sStr, i, 1)
If sChar Like "[0-9]" Then
sStr1 = sStr1 & sChar
End If
Next
ReturnNumerals = sStr1
End Function

--
Gary''s Student - gsnu200774


"Brennan" wrote:

Is there a worksheet function which will look into the contents of a cell,
find a value and return it?

Here is an example of what I am looking for:

Cell Return
Invoice No 1234 1234
Inv. No. 1235 1235
INum 1236 1236

As you can see, I am just looking for the invoice number even though they
may lable the "invoice no" differently.