Hi Everyone,

Please help me again in my project. I have to save a specific worksheet when a value is seen in a specific range.

Here's my code.

Code:

Sub export()

Dim keyword As String
Sheets("INSTRUCTIONS").Activate
keyword = Range("O24").Value

If keyword = "AMERICAS" Then

    Sheets("CLASSIFIED-americas").Copy
     With ActiveWorkbook
     '.Title = "Classified"
     .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls"), xls
        '.Close True

    If keyword = "RRRS" Then
        Sheets("CLASSIFIED-RRRS").Copy
           With ActiveWorkbook
           '   .Title = "Classified"
          .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls"), xls
             ' .Close True

        If keyword = "RRR" Then
            Sheets("CLASSIFIED-RRR").Copy
             With ActiveWorkbook
             '   .Title = "Classified"
            .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Excel 97-2003 Workbook (*.xls), *.xls"), xls
               ' .Close True

End If
    End If
        End If
            End If
        

     
    Application.DisplayAlerts = True
   
  
End With
End Sub
Thank you for those who will help me.