Backup Active Workbook Using a Macro

[dgr]

Hello,
I'm using Excel 2013. I want to backup my active workbook to another destination. I'm trying to use the following code but it says <b>Runtime Error 70 permission denied</b>. Is there any other way to to backup my active workbook without having to use SaveAs?

Thank.

My code:

Sub backup_xlsm_file()
Dim SourceFile, DestinationFile

SourceFile = "E:\path1\Book1.xlsm"
DestinationFile = "E:\path2\Book1" & Format(Now(), "yyyy_mmdd") & ".xlsm"
FileCopy SourceFile, DestinationFile
end sub

 

[John_w]

    ThisWorkbook.SaveCopyAs DestinationFile

 

[dgr]

Thanks for your reply, John. Unfortunately, this did not work either. The macro ran successful & there was no error message. However, the backup file did not materialize too. My code;

ThisWorkbook.SaveCopyAs DestinationFile = "C:\Users\myself\Desktop\Book1" & Format(Now(), "yyyy_mmdd") & ".xlsm"

I'm very sure the path exists.