Advice on VBA Code

[VBA learner ITG]

I was wondering if i can get your expertise!

Is there a code that anyone knows of that will do the following:

1. Split a workbook tabs into new separate workbooks.
2. Save each new workbook created as the original file name including with the tab name that has been moved into the new workbook
3.Create a folder for these new saved workbook.

Any help would be appreciated.

 

[JLGWhiz]

Is there a code that anyone knows of that will do the following:

Code must be constucted to meet the specifications of the designer. There are some, so called, generic codes written. But they usually require some degree of modification for practical use by a specific user. Here is a basic code to do what you describe. The code will use "C:\Temp" as the directory path for the new files. You can change that in the code to meet your needs.

Sub makeNewWBs()
Dim twb As Workbook, wb As Workbook, sh As Worksheet, fPath As String
Set twb = ThisWorkbook
fPath = "C:\Temp\"
    For Each sh In twb.Sheets
        sh.Copy
        Set wb = ActiveWorkbook
        wb.SaveAs fPath & twb.Name & "_" & sh.Name & ".xlsx" 'Assumes xl version 2007+ FileFormat:=51
        wb.Close False
    Next
End Sub

This code does not compensate for any sheets which contained formulas with external references. If there are any of those formulas in the sheets, the cells will appear with error flags.

 

[VBA learner ITG]

Hi JLGWhiz,

thank you for your help its helped steer me in the right direction.

 

[JLGWhiz]

Hi JLGWhiz,

thank you for your help its helped steer me in the right direction.

You're welcome,
regards, JLG