How do I quickly save a presentation under a new name and file extension?

PPT.bas

Sub S()

Dim Ppres As Presentation
Set Ppres = ActivePresentation
Dim location As String
    
'~~~~~~~~~~~~saving in a location specified by us~~~~~~~~~~~~~~~~~~~~~

location = "C:\Users\Angelina\Review\MonthlyReview.pptx"
Ppres.SaveAs FileName:=location, FileFormat:=ppSaveAsDefault

'~~~~~~~~~~~saving in the same location as the exisitng presentaton
'~~~~~~~~~~~with a date 1 month back in the name~~~~~~~~~~~~~~~~~~~~~

Ppres.SaveAs FileName:=Left(Ppres.FullName, Len(Ppres.FullName) - 5) _
& "_" & Format(DateAdd("m", -1, Date), "mmm") & ".pptx"   

Ppres.Close
End Sub