将特定的工作表导出到多个工作簿

Question

Really stuck with a macro I using at the moment. What I have at the moment is a marco that exports every worksheet into a separate workbook which is great.

My issue is I have columns linked to a another worksheet (“Mapping”) for data validations.

When I open the newly created workbooks the data validation links are all broken.

So I'm wondering is it possible to change this macro so when it exports each worksheet, it also exports the “Mapping” sheet into each of the newly created workbooks? Code I'm currently using below:

 Option Explicit Dim MainWorkBook As Workbook Dim NewWorkBook As Workbook Sub ExportWorksheet() Dim Pointer As Long Set MainWorkBook = ActiveWorkbook Range("E2").Value = MainWorkBook.Sheets.Count Application.ScreenUpdating = False 'enhance the performance For Pointer = 2 To MainWorkBook.Sheets.Count Set NewWorkBook = Workbooks.Add MainWorkBook.Sheets(Pointer).Copy After:=NewWorkBook.Sheets(1) Application.DisplayAlerts = False NewWorkBook.Sheets(1).Delete Application.DisplayAlerts = True With NewWorkBook .SaveAs filename:="H:\\2017\\Macro\\" & MainWorkBook.Sheets(Pointer).Name & ".xlsx" 'you may change to yours End With NewWorkBook.Close SaveChanges:=True Next Pointer Application.ScreenUpdating = True Range("D5").Value = "" End Sub 

Answer 1

Having played around abit I think you can change

MainWorkBook.Sheets(Pointer).Copy After:=NewWorkBook.Sheets(1)

To

MainWorkBook.Sheets(Array(Pointer, "Mapping")).Copy After:=NewWorkBook.Sheets(1)

Which preserves the Data Validation