Exporting Multiple Worksheets From One Workbook To A New Workbook

Help please? :)

Code:

---

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. :)

use it like this

Code:

---

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

---

Thank you very much!