Thanks, works perfectly.

Another question.. would it be possible to copy to another worksheet
all fields that ARENT hyperlinks? or would the best way be just to
delete the hyplerlinks with
Sheets("Industry").Cells(n,1).Hyperlinks.Delete ?

is that right cheers tom