Hi Henk

Copy this code and use the function Digitsonly(a2), copy down, copy and
paste values

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
************************************************** ****



"Henk" escreveu:

I want to delete the text in 30.000 cells from a cell which contains text and
numbers. What is the easiest way to do so?

Thanks