Extract Numerical part with VB Code

Hello:

Please refer to attached file.

I need a VB Code to replace the cell value by the numrical part of the string.
For Example:

Employee# 3 AMY
Employee# 5 DARLENE
Employee# 5 DARLENE
Employee# 6 ANGIE
Employee# 7 CHASETY

would become
3
5
5
6
7


Please Let me Know if you have any questions.
Thanks.

Riz

See attached file...

Hi judgeh39:

Thank you so much for quick help, this works.
However, the number of data will vary so x = 2 to Y where y needs to be the last data

Please modify the code to incorporate this.

Let me Know if you have any questions.
Thanks.

Riz

Hello Judgeh59:

Yes this works great.
Would you mind helping on one of my existing unsolved thread which is related to this.
Would appreciate if you can.

http://www.excelforum.com/excel-prog...rage-data.html

Please Let me Know if you have any questions.
Thanks.
Riz