Function myNumber(st as String) as String
dim st2
for i = 1 to len(st)
if isnumeric(mid(st,i,1)) then st2 = st2 & mid(st,i,1)
next i
myNumber = st2
End Function


To

--
tkstoc
-----------------------------------------------------------------------
tkstock's Profile: http://www.excelforum.com/member.php...fo&userid=1444
View this thread: http://www.excelforum.com/showthread.php?threadid=26477