Remove macro from backup excel document

[Legacy 260385]

I have this macro currently running on an original excel document

Private Sub Workbook_Open()Dim fname
fname = "C:\backup\Economics Tracker - " & Format(Now, "dd mmm yy hh mm AM/PM") & ".xlsm"
ThisWorkbook.SaveCopyAs Filename:=fname


Sheets("Menu").Activate
End Sub

Which creates a backup of the document each time the document is opened;
I was wondering, is it possible to remove that particular macro from the backup as opposed to saving the backup as .xlsx?
I don't want to be able to open a backup and the backup makes a backup

That particular macro is running on the main workbook.

Thank You!

 

[JoeMo]

Maybe:

Private Sub Workbook_Open()
Dim fname
If InStr(ThisWorkbook.FullName, "backup") > 0 Then Exit Sub
fname = "C:\backup\Economics Tracker - " & Format(Now, "dd mmm yy hh mm AM/PM") & ".xlsm"
ThisWorkbook.SaveCopyAs Filename:=fname
Sheets("Menu").Activate
End Sub

 

[Artik]

It is not always the case that small is beautiful.
Use the SaveAs with FileFormat parameter.
I gave you an example here.

Artik

 

[Legacy 260385]

(To JoeMo) Thanks!! That worked perfectly! I added the 'Sheets("Menu").Activate' right after 'Dim fname' so it always loads the menu page on the backup also

 

[Legacy 260385]

(To Artik) Oh, I previously used SaveAs but the problem is that it instantly loaded the backup file after saving instead of reverting to the original file

 

[JoeMo]

Thanks!! That worked perfectly! I added the 'Sheets("Menu").Activate' right after 'Dim fname' so it always loads the menu page on the backup also

Which post is "That"? You can refer to a specific post easily if you use 'Reply With Quote' at the bottom of the specific post.

 

[Legacy 260385]

Which post is "That"? You can refer to a specific post easily if you use 'Reply With Quote' at the bottom of the specific post.

Sorry, it was to you; fairly new to using forums xD But thanks, I will use that in the future

 

[Artik]

I previously used SaveAs but the problem is that it instantly loaded the backup file after saving instead of reverting to the original file

I do not think you tried my solution

Artik

 

[JoeMo]

(To JoeMo) Thanks!! That worked perfectly! I added the 'Sheets("Menu").Activate' right after 'Dim fname' so it always loads the menu page on the backup also

You are welcome - thanks for your reply.

 

[Legacy 260385]

I do not think you tried my solution

Artik

I tried it but my Excel started to slow down and eventually crashed

I really appreciate you helping out