Worksheets to workbook

P

Patsy Rogge

Hi

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

Harald Staff

Hi Patsy

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

HTH. Best wishes Harald
 
G

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
 
Top