Worksheets to workbook

[Patsy Rogge]

Hi

I have a excel workbook containing 20 different worksheets. Is there a
quick way to make each worksheet a separate workbook?

 

[Harald Staff]

Hi Patsy

Rightclick each sheet tab. Choose "move or copy", select Move and set New
Workbook as destination.

HTH. Best wishes Harald

 

[Gord Dibben]

Patsy

Real quick would involve a macro.

Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
'In case user doesn't want every worksheet
' For Each W In Worksheets(Array("sheet1", "Sheet3", _
' "Sheet5", "sheet7"))
w.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & _
"\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

 

[Ron de Bruin]

Another one
http://www.rondebruin.nl/copy6.htm