"mudraker " wrote in message
...
Why not do away with your loop and use

ilastrow = oxlWks.Worksheets("Sheet1").Range("A65536").End(xl Up).Row


this gets the last row with an entry in column a



Can not help you as to why your code fails

Thanks - that seems faster and more compact. The code crashing still bugs
me! But the goal is to get the thing working.

Thanks again.