Richard, Sandy & Bill,

Absolutely incredible response. I actually looked last night, really only to
make sure I had posted correctly, and found some answers already offered. I
didn't have time to reply at that time and finished late, (again!!) tonight.

Reference the advice given - If I can't solve it now, it isn't worth
solving.

Thanks for the very fast response and the quality of advice given. As my
knowledge of Excel improves I hope I'm able to offer help to the less
experienced.

Thanks again

Donald Macleod



"Richard" wrote in message
oups.com...
Sorry,

That third line in the loop should have read

Worksheets(x).Range("a1").CurrentRegion.ClearConte nts


Rgds