Save As but keep active wb open but the Save As .close

[Excelnoub]

Good day,
I am playing around my save as method. I have the following code and I think I know I will get it. I have a command button in my sheet that will Save As my Range:

Private Sub CommandButton2_Click()
    Dim FPATH As String
    FPATH = "C:\"
    ActiveWorkbook.SaveAs FPATH & Sheets("Control").Range("A2").Value & ".xlsm"
End Sub

Problem is that it closes my original file and opens the new file that was created I need to have the original wb stay open and that the new one close.

What would I be missing?

[Norie]

Perhaps you could use SaveCopyAs.

Private Sub CommandButton2_Click()
    Dim FPATH As String
    FPATH = "C:\"
    ActiveWorkbook.SaveCopyAs FPATH & Sheets("Control").Range("A2").Value & ".xlsm"
End Sub

[Excelnoub]

I knew I was just missing one small thing

Thank you Norie