saving worksheets as individual files

[Paul Mendez]

I have a workbook with over 250 worksheets. I would like to separate
the workbook into individual worksheets. What I mean is that I would
each worksheet to be its own excel file, with only itself in the excel
sheet.

I need some help doing this, and in the past way possible. Thank you!

 

[Peo Sjoblom]

Right click each sheet tab and select move or copy, then check copy and new
book.
Or you could run a macro that will do it for you and maybe name the workbook
after the sheet name?

--

Regards,

Peo Sjoblom

(No private emails please, for everyone's
benefit keep the discussion in the newsgroup/forum)

 

[Gord Dibben]

Paul

Copy/paste this code to a general module in your workbook then run it.

250 new one-sheet workbooks each named after their worksheet name will be
placed in the same folder as the original 250-sheet workbook.

Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Gord Dibben Excel MVP

 

[Paul Mendez]

Thanks Mr. Dibben

It worked great!!!!

Paul

Paul

Copy/paste this code to a general module in your workbook then run it.

250 new one-sheet workbooks each named after their worksheet name will be
placed in the same folder as the original 250-sheet workbook.

Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Gord Dibben Excel MVP