Save Worksheets As Seperate Workbooks Based On Conditions

[Admin]

Hi

Try this

Option Explicit

Sub Export()

    Dim Keyword As String
    Dim FName   As Variant
    
    Keyword = UCase$(Worksheets("INSTRUCTIONS").Range("O24").Value)
    
    Select Case Keyword
        Case "AMERICAS"
            Sheets("CLASSIFIED-americas").Copy
            FName = Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls")
        Case "RRRS"
            Sheets("CLASSIFIED-RRRS").Copy
            FName = Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls")
        Case "RRR"
            Sheets("CLASSIFIED-RRR").Copy
            FName = Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls")
    End Select
    
    If Not IsEmpty(FName) Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs FName
        Application.DisplayAlerts = True
    End If
    
End Sub