Originally was going to create another worksheet
until I saw you want another workbook instead. The upper
limit is really only a safety factor the ON ERROR is what
is supposed to stop looking at sheets.

change --
For i = 1 To (Sheets.Count - 1)
to --
For i = 1 To Sheets.Count

And in my first reply remove any reference to wsNew
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm