How to save the selected worksheet without specifying sheet name or number

[Knockoutpie]

Is there a way to save the active/selected worksheet without having to specify sheets(1)?

The code below is execute via command button and will take the worksheet "Quote" copy to a new workbook, and then prompt to save under the downloads directory.
I'm also trying to get that button to save whichever sheet is selected, it could be Quote or Sheet1, but not both.

Private Sub CommandButton4_Click() ' save worksheet
'Gets the name of the currently visible worksheet

Filename = ActiveSheet.Name


'Puts the worksheet into its own workbook

ThisWorkbook.ActiveSheet.Copy


'Saves the workbook - uses the name of the worksheet as the name of the new workbook

'Filename = Range("A1")
'ActiveWorkbook.Save

    Dim NameFile As Variant
        With Worksheets("Quote")
        'NameFile = .Range("A1") & "_" & .Range("B5") & "_" & ".xls"
        End With
        NameFile = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Downloads\" & NameFile, Filefilter:="Fichier Excel (*.xls), *.xls")
        If NameFile = False Then
        MsgBox "File not saved"
        Else
        ActiveWorkbook.SaveAs Filename:=NameFile
        End If


'Closes the newly created workbook so you are still looking at the original workbook

ActiveWorkbook.Close

 

[Candyman8019]

It looks like this line has a sort of circular reference:
NameFile = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Downloads\" & NameFile, Filefilter:="Fichier Excel (*.xls), *.xls")

Should likely be
NameFile = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Downloads\" & Filename, Filefilter:="Fichier Excel (*.xls), *.xls")

 

[Knockoutpie]

It looks like this line has a sort of circular reference:
NameFile = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Downloads\" & NameFile, Filefilter:="Fichier Excel (*.xls), *.xls")

Should likely be
NameFile = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Downloads\" & Filename, Filefilter:="Fichier Excel (*.xls), *.xls")

Thanks, also changed With Worksheets to "With ActiveSheet"