Macro for creating new workbooks from 1 workbook with multiple sheet

bj6264

New Member
Joined
May 23, 2010
Messages
49
Hello

Can anyone help with a simple macro for creating new workbooks from 1 workbook that has about 50 sheets?

Thanks
 

bj6264

New Member
Joined
May 23, 2010
Messages
49
Thanks but this isn't quite what I want. I want to make all worksheets in 1 exisiting workbook into new workbooks - nothing to do with months.
 

dmt32

Well-known Member
Joined
Jul 3, 2012
Messages
5,372
Office Version
2013
Platform
Windows
Thanks but this isn't quite what I want. I want to make all worksheets in 1 exisiting workbook into new workbooks - nothing to do with months.
Link Armando provided was just to give a working example that you could adapt to meet your need. If that is not close then have a look at Ron's site to see if any help to you.

Dave.
Create a workbook from every worksheet in your workbook
 

bj6264

New Member
Joined
May 23, 2010
Messages
49
Thanks for your reply but I'm a real novice to VBA and your answers are way above my level. I think this may be a manual task for me.:eek:
 

Armando Montes

Well-known Member
Joined
Sep 2, 2008
Messages
505
Open de VBA editor, insert a Module and paste this code:
http://www.mrexcel.com/forum/<wbr>showthread.php?t=416894
Code:
Sub MoveSheetsToWorkbooks()
Dim Ws As Worksheet, strFilepath As  String

    strFilepath = ThisWorkbook.Path &  "\"
    
    Application.ScreenUpdating =  False
    For Each Ws In ThisWorkbook.Worksheets 'loop through  the worksheets
        Ws.Copy 'and copy  the sheet to a new workbook
         ActiveWorkbook.SaveAs strFilepath &  ActiveSheet.Name
         ActiveWorkbook.Close False
    Next
     Application.ScreenUpdating = True
    MsgBox "All Done",  vbExclamation + vbOKOnly
End Sub
 

Forum statistics

Threads
1,086,205
Messages
5,388,408
Members
402,117
Latest member
Chaskon

Some videos you may like

This Week's Hot Topics

Top