Saving multiple worksheets as independent files

H

Hewlett

I have a multiple worksheet workbook that on a regular basis would like to
save as independent workbooks. Is there an easy way to do this vs. cutting &
pasting into another workbook?
 
B

Bob Phillips

Right-click the tab name, select Move or Copy, pick new book from the To
Book dropdown, and either leave the Create a Copy checkbox unticked (move)
or tick it (Copy).
 
G

Gord Dibben

Hewlett

Can you live with a macro?

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
 
Top