Thanks again tom, but like I said, I get that error as soon as it get
to the "findnext" line of code.
It says "Unable to get the FindNext property of the Range Class" a
soon as the code is on the SET line.
I tried stepping through the code and this is where it stops.

The IF rng Is Nothing statement does not work because the code fall
over if the findnext is not possible.

I think the check for a findnext needs to be prior to the set rng bu
not sure how.

Any ideas?

Thanks for all your help in this

--
Message posted from http://www.ExcelForum.com