Over 1000 Sheets in a workbook
 

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!

Over 1000 Sheets in a workbook
 

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

--
Regards,
Tom Ogilvy

"TEB2" wrote in message
...
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!

Over 1000 Sheets in a workbook
 

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


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Tom Ogilvy" wrote in message ...
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

--
Regards,
Tom Ogilvy

"TEB2" wrote in message
...
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!