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)

I made some changes but still not working out correctly:

strSavelocation = "H:\" & Environ("Username") & "\" & strReportName & strExtension
        wbRef.SaveCopyAs (wbRef.FullName & ".copy" & fnFileExt(wbRef))
        Workbooks.Open wbRef.FullName & ".copy" & fnFileExt(wbRef)
        Set wbCopy = ActiveWorkbook
        wbWorking.SaveAs strSavelocation, lngFileFormat
        Set wbWorking = Workbooks.Open(strSavelocation)

anyone have any ideas?