ex)
in case A1 = aaa893
B1 = aaa
C1 = 893

in case A2 = 12daa893
B2 = daa
C2 = 12893

how to make function ????

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Maybe easiest to write a UDF

Function GetNumeric(rng As Range)
Dim i As Long
Dim sTemp As String

If rng.Count 1 Then
GetNumeric = CVErr(xlErrRef)
Else
For i = 1 To Len(rng.Value)
If IsNumeric(Mid(rng.Value, i, 1)) Then
sTemp = sTemp & Mid(rng.Value, i, 1)
End If
Next i
GetNumeric = sTemp
End If
End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)


"a rohi" wrote in message
...

ex)
in case A1 = aaa893
B1 = aaa
C1 = 893

in case A2 = 12daa893
B2 = daa
C2 = 12893

how to make function ????

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!