OK brett it looks like we both posted about the same time. I tested the macro
against the data you gave me and there is one change to make.

In the following line in the find block of code:-

LookAt:=xlPart, _

Change this to:-

LookAt:=xlWhole, _


Your example is great. It's a pity that examples break up so much when
posted but I was able to extract the data OK. I now think that with the above
modification the macro should do what you want.

Regards,

OssieMac