Here is a snippet you can start with...


Mark Ivey




' Assuming your string values are starting in "A1" and
' progress down the page, this snippet will look through
' cells A1 to A10... extract the MPA values and put a copy
' of them in the column E of the same row.
For i = 1 To 10
If Cells(i, 1).Value < "" Then
myMPA = Mid(Cells(i, 1), (InStr(1, Cells(i, 1), "MPA")) - 2, 5)
Cells(i, 5).Value = myMPA
End If
Next









"TC" wrote in message
...
Hi Gurus

I would really appreciate if I could have a VBA script/ Macro that
will do the following:-

Extract eg 32MPA , 20MPA , 40MPA fro a text string as per below
sample.

POST TENS 32MPA 20MM 22@3 90 AIR TESTED
GREEN 60 20MPA 20MM
CONCRETE_POLISHED___32MPA_10MM_SHRINKAGE LTD
CONCRETE_DURAMIX___40MPA_20MM_MACFOLSPEC

Thanking you in anticipation.

Cheers
Tony