VBA/Macro Assistance Needed - Copying Sheets and Saving Files

[NelsonSN25]

Good evening,

I am a novice in trying to build a VBA/macro. I am looking for assistance to perform the following:
1. Copy "Sheet1" tab into a new workbook and save file in in C:\Users\953051\Desktop\2021 Project - BinLocUpload
2. Copy "Sheet2" and "Sheet3" tabs into a new workbook and save file in C:\Users\953051\Desktop\2021 Project - BinLocReview

Can someone assist? Thank you!

 

[AlphaFrog]

Change the file names to suit.

Sub SaveSheets()
    
    ThisWorkbook.Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs "C:\Users\953051\Desktop\2021 Project - BinLocUpload\Sheet1.xlsx", FileFormat:=51
    ActiveWorkbook.Close SaveChanges:=False
    
    ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Copy
    ActiveWorkbook.SaveAs "C:\Users\953051\Desktop\2021 Project - BinLocReview\Sheet2-3.xlsx", FileFormat:=51
    ActiveWorkbook.Close SaveChanges:=False
    
End Sub