User defined function OK with you?

Function DeleteNonNumerics(ByVal sStr As String) As Long
Dim i As Long
If sStr Like "*[0-9]*" Then
For i = 1 To Len(sStr)
If Mid(sStr, i, 1) Like "[0-9]" Then
DeleteNonNumerics = DeleteNonNumerics & Mid(sStr, i, 1)
End If
Next i
Else
DeleteNonNumerics = sStr
End If
End Function

Usage is: =DeleteNonNumerics(cellref)

If you care to preserve the original, just copy the column and use the UDF on
that copy.


Gord Dibben MS Excel MVP

On Thu, 21 Dec 2006 11:11:02 -0800, Mat wrote:

Dear Mate,

I have some 1000+ data which has a mix of text and figues combined. Each
combined entry is in one cell. I need to separate them or remove the figures
from the text for examaple.

4357890Robetson & company
6578David Co. Ltd
1234bedrock ltd


Regards

Mat