Exporting Multiple Worksheets From One Workbook To A New Workbook

[jffryjsphbyn]

Help please?

Sub Export()

    Dim Keyword As String
    
    Keyword = UCase$(Worksheets("INSTRUCTIONS").Range("O24").Value)
    
    Application.DisplayAlerts = False
    
    Select Case Keyword
        Case "AMERICAS"
            Sheets("CLASSIFIED-americas").Copy
            Sheets("SUMMARY-americas").Copy
            With ActiveWorkbook
                .Title = "Classified"
                .Close True
            End With
        
        Case "RRRS"
            Sheets("CLASSIFIED-RRRS").Copy
            Sheets("SUMMARY-RRRS").Copy
            With ActiveWorkbook
                .Title = "Classified"
                .Close True
            End With
        
        Case "RRR"
            Sheets("CLASSIFIED-RRR").Copy
            Sheets("SUMMARY-RRR").Copy
            With ActiveWorkbook
                .Title = "Classified"
                .Close True
            End With
    End Select
    Application.DisplayAlerts = True

End Sub

I wanted to export 2 worksheets in a single workbook. Please Help!

Thank you in advance.

[Excel Fox]

use it like this

            Sheets(Array("CLASSIFIED-americas","SUMMARY-americas")).Copy

[jffryjsphbyn]

Thank you very much!