saving multiple sheets in a workbook
 

I have 1100 worksheets in a workbook all named after what I need to save them
as, but I can't find any kind of "bulk save" where Excel can take each of the
sheets and save them as individual files vs saving them all in a workbook.

I don't want to click on "Save as" for each of the files, then manually
enter the name of the worksheet, especially since there is no hotkey assigned
to "save as".

Does anyone know of a way around this? Or perhaps a shortcut for doing it?

Hi

Try
http://www.rondebruin.nl/copy6.htm


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


"Danimal82" wrote in message ...
I have 1100 worksheets in a workbook all named after what I need to save them
as, but I can't find any kind of "bulk save" where Excel can take each of the
sheets and save them as individual files vs saving them all in a workbook.

I don't want to click on "Save as" for each of the files, then manually
enter the name of the worksheet, especially since there is no hotkey assigned
to "save as".

Does anyone know of a way around this? Or perhaps a shortcut for doing it?

One way,

owb = ActiveWorkbook.Name


For i = 1 To 11000
Workbooks(owb).Activate
Sheets(i).Select
wsname = Sheets(i).Name
Cells.Copy
'Selection.Copy
Workbooks.Add

ActiveWorkbook.SaveAs Filename:="C:\Temp\" & wsname,
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next i




"Danimal82" wrote in message
...
I have 1100 worksheets in a workbook all named after what I need to save
them
as, but I can't find any kind of "bulk save" where Excel can take each of
the
sheets and save them as individual files vs saving them all in a workbook.

I don't want to click on "Save as" for each of the files, then manually
enter the name of the worksheet, especially since there is no hotkey
assigned
to "save as".

Does anyone know of a way around this? Or perhaps a shortcut for doing it?