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!