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?