Over 1000 Sheets in a workbook

[Guest]

I was given a workbook with over 1000 worksheets. How can I convert all
these to their own workbook? I really don't want to do it manually!

 

[Tom Ogilvy]

Sub Savetime()
dim sh as Worksheet
for each sh in workbooks("BigBook.xls").worksheets
sh.copy
Activeworkbook.SaveAs "C:\MyFolder\" & sh.name & ".xls"
ActiveWorkbook.close Savechanges:=False
Next
end Sub

 

[Ron de Bruin]

Another one that create a folder for the files
http://www.rondebruin.nl/copy6.htm