It will take some time for me to digest this as I'm busy with a few
projects at the moment. First read raises the following...

Row indexes are Long data type, not Integer, and so re-type your
variables to reflect this.

Your loop counter should also be type Long.

I can't see what the layout is for using .CurrentRegion like you do. It
would be helpful if you upload a sample file to a public share and post
a download link so we can do hands on with your real project.

The line using .Intersect has no documentation explaining what you're
trying to do, so please add comments there!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion