Backup copy of workbook macro

[andrewb90]

Hello,

I am using this code to create a backup copy of my workbook:

Sub DOUGHMON()Dim fname
fname = "C:\Users\Andrew\Desktop\WEEKLY SALES REPORTS\" & Format(Now, "dd mmm yy") & ".xlsm"
ThisWorkbook.SaveAs Filename:=fname
End Sub

The only problem with this code is that my current file gets closed and the backup is open. I'm not sure if that is exactly what happens, but when it is done the current file that is open is the copy, and I would like the original file to stay open.

Thanks,

Andrew

 

[dmt32]

to make a copy of your workbook use SaveCopyAs

ThisWorkbook.SaveCopyAs Filename:=fname

Dave