Hi Tredown

Can you give me the link to the macro example you use now
We can find a solution for you then

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Tredown" wrote in message ...
I an using your copy next each other sub and last row function.
My question is there a maximum number of ranges that can be used within the
Set sourceRange = Sheets("Sheet1").Range statement. I have 41 ranges which
works fine but as soon as i add further ranges i get a run time error 1004.
If there is a maximum is there away to increase it.
Thanks in anticipation
Tredown