Quote Originally Posted by firefytr
[vba]lnStart = .Range("D65536").End(xlUp).Row[/vba]

.. hmm, xld, are you digressing from your own standings on obtaining the last row??
Semi-guilty!

That part of the code was not mine, I just added the code to overcome the problem. I should change it though I agree