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!