Find Digit in String

[dgr]

Hi,
I'm using Excel 2013. I'm looking for a VB macro solution for my problem.

I've got some text in column H. The text looks something like the 3 examples below.

some alphanumeric stuff 850 To 500 Sq.Ft. some alphanumeric stuff
some alphanumeric stuff 2300 Sq.Ft. some alphanumeric stuff
some alphanumeric stuff 2330 more alphanumeric stuff 2471 Sq.Ft.

From these examples, I want to extract:
500 Sq.Ft.
2300 Sq.Ft.
2471 Sq.Ft.

The common denominator here is the Sq.Ft. which is case insensitive. On the left of the Sq.Ft. there is a space. On the left of the space there is a string of numbers. There will NOT be any spaces in between the numbers.

I would like the extracted data to remain in the same cell in the same column.

I've seen some examples on this site but I don't know how to edit the examples to suit my needs as I am VBA illiterate.

Therefore, thank you very much for showing me the way.

 

[Special-K99]

Assuming the value wont go over 4-digits try

=MID(A4,FIND("Sq.Ft",A4)-5,5)+0