hi,

copy this module (ALT+F11) and use a function =digitsonly(a2)

hth
regards from Brazil
Marcelo

************************************************** *
Public Function DigitsOnly(sStr As String) As Variant
Dim oRegExp As Object

Set oRegExp = CreateObject("VBScript.RegExp")

With oRegExp
.IgnoreCase = True
.Global = True
oRegExp.Pattern = "\D"

DigitsOnly = oRegExp.Replace(sStr, vbNullString)
End With
End Function
************************************************



"Sam" escreveu:

I need to remove text from cell and show only numbers
example number 510-889.

Each cell contains different amount of text.

Thanks!!