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!

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" <TEB2@discussions.microsoft.com> wrote in message
news:A0AC369B-3605-4DC4-8966-FC855A06D8B6@microsoft.com...
> 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!

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" <twogilvy@msn.com> wrote in message news:uLMgcjiGFHA.2384@TK2MSFTNGP10.phx.gbl...
> 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" <TEB2@discussions.microsoft.com> wrote in message
> news:A0AC369B-3605-4DC4-8966-FC855A06D8B6@microsoft.com...
>> 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!
>
>