Macro for - Selecting & copying multiple tabsheets to a new excel workbook

[ya_aashiq]

Hello

I need a code for selecting and copying specific multiple worksheets. For example if a workbook has 10 worksheets, I need to select 5 of them based on their name and copy the complete worksheets to a new workbook.

Can anyone help plz?

 

[YasserKhalil]

Try this code

Sub Test()    Dim ArrSheetToCopy, I As Long


    ArrSheetToCopy = Array("1", "2") 'Sheet Names


    Application.ScreenUpdating = False
        With Workbooks.Add
            Application.DisplayAlerts = False
            For I = 1 To (.Sheets.Count - 1)
                .Sheets(.Sheets.Count).Delete
            Next I
            .Sheets(.Sheets.Count).Name = String$(20, "Z")
            
            For I = 0 To UBound(ArrSheetToCopy)
                ThisWorkbook.Sheets(ArrSheetToCopy(I)).Copy Before:=.Sheets(.Sheets.Count)
            Next I
            .Sheets(.Sheets.Count).Delete
            Application.DisplayAlerts = True
            
            .SaveAs ThisWorkbook.Path & "\Yasser_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm", xlOpenXMLWorkbookMacroEnabled
            .Close
        End With
    Application.ScreenUpdating = True
End Sub

 

[ya_aashiq]

Thanks a lot Yasser, it worked

 

[ya_aashiq]

Yasser, can you please help me with this code int he following thread? Really appreciate, thanks a lot in advance

http://www.mrexcel.com/forum/excel-...ts-complete-worksheet-contains-text-sold.html