Auto backup after save

There are hundreds of threads on this subject, I feel bad starting another, but I'm still really struggling to make this work. All I want is to save a copy of a file in a different location after I save it.

this is adapted from here:
http://www.ozgrid.com/forum/showthread.php?t=99706
("interesting" moderation)

Please Login or Register  to view this content.

It's all fine except for when the save is part of the close routine, which traps it in an eternal loop.

I've tried using boolean for closing, and replicating the entire close event with an inputbox, but this just seem bloody awful.

What am I doing wrong?

CC

This goes in an add-in?

How and where do you initialize the class?

Could you not write code for an App_WorkbookBeforeClose event, cancel the Close, and close manually after checking for Saved?

Edit: Rereading your question, I would add to my questions, why don't you use SaveCopyAs instead of SaveAs?