macro to move and save all sheets to seperate workbooks

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi is there a macro I can use to copy and save all worksheets in a book by
their sheet names to a specific location?

Thanks,


Todd
 
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:="C:\Gordstuff\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro for all Excel Workbooks to print to PDF 2
Excel Move or Copy Stopped Working? 0
Copying cells and formula from closed workbook to all sheets in open workbook 0
copy sheets 2
Error Message - Macro to Unlink MS Queries from Workbook 0
save file using information from a cell 1
Problem in adding macro to ribbon through Add-in 7
VBA macro guru help needed! 1

Back
Top