Export several sheets to number of different workbooks

Hi Guys,

Little bit of a problem here and I hope you guys can help me out. I've written the macro below that will do the following.
*select all the sheets in the workbook
*copy all the sheets to a new workbook
* depending on the RegName it will delete certain rows.
* Save the workbook

What I'm asking for is a better solution then writing the Do until ("sheet1") loop for every sheet that I want i to do and instead just have one string of code

Secondly instead of writing out the whole array that is should go through is there a shorter way of writing all of the sheet names (approx 30 Ws in my Wb) or just make it go from sheet1 until the last sheet if the amount should vary?

Please Login or Register  to view this content.