Save Worksheets As Seperate Workbooks Based On Conditions

[Admin]

Hi

Untested.

Option Explicit

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
            With ActiveWorkbook
                '.Title = "Classified"
                .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls", "xls")
                '.Close True
            End With
        
        Case "RRRS"
            Sheets("CLASSIFIED-RRRS").Copy
            With ActiveWorkbook
                 '   .Title = "Classified"
                .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls", "xls")
                ' .Close True
            End With
        
        Case "RRR"
            Sheets("CLASSIFIED-RRR").Copy
            With ActiveWorkbook
                '   .Title = "Classified"
                .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls", "xls")
               ' .Close True
            End With
    End Select
    Application.DisplayAlerts = True

End Sub