Save file as copy while still having original still open

I use this code to create a copy of a workbook but I want to keep the original still open. However it is just saving the original as the new file (so the new one is not open). What am I doing wrong?

strSavelocation = "H:\" & Environ("Username") & "\" & strReportName & strExtension

        wbRef.SaveCopyAs strSavelocation
        Set wbWorking = ActiveWorkbook
        wbWorking.SaveAs strSavelocation, lngFileFormat
        Set wbWorking = Workbooks.Open(strSavelocation)