A tad shorter and it eliminates the volatile INDIRECT function call...

=LOOKUP(9.99999999999999E+307,--LEFT(MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"012 3456789")),99),ROW($1:$99)))

--
Rick (MVP - Excel)


"Glenn" wrote in message
...
volleygods wrote:
I need to find an easy function or macro to remove all text characters
from a cell.
EX. Pail=19KG converts to 19


=LOOKUP(9.99999999999999E+307,--MID(A1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A1&"012345 6789")),ROW(INDIRECT("1:"&LEN(A1)))))

Credit to Bob Phillips