Hi Claude,

try to use the UDF

and use a function =digitsonly(a2)

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

hth
regards from Brazil
Marcelo


"claude" escreveu:

number in general format was okay the issue is the number had a space
seperation in thousand place i removed this by edit and replace and viola it
worked!