Auto close, save to new file without prompt

I posted this question and got the answer to it. Thanks everyone who replies. I have to modify this though and I am not sure if it is possible to do so. The following is what i asked and what was answerd. My question will follow.

Originally Posted by Bafa

Hello. I am trying to find the code that will allow me to close and exit the file I am working in and the Excel program without asking if I want to save. I just need an easy click and quit command button. Thanks for any help!

Originally Posted by mudraker

You have a several ways to do it

Please Login or Register  to view this content.

I have decided that it would be good to save a record on the PC of what was done as well as the hard copy I am required to keep. So what I need is for the master file I am working on to close without promting me to save it, but I do want it to save the info entered as a seperate file, preferably with the file name of the current date YY-MM-DD format. The reason is when the master file is open I want it to be void of all values, so when it closes I don't want the info that was entered to be saved there, but instead to have it automaticly create and name a new file and save all the info there upon closing the master file. So in my directory you would see a list like this:

master.xls <- Never saves it self
070522.xls \
070615.xls - > These three were created by the master file closing
070728.xls /

I hope I haven't made this sound more complicated than it is. If anyone needs clairification of what I am doin please ask. Thanks everyone for all the help so far on this file I made almost a year ago and have been tweaking since. It got me the promotion at work that I wanted and reduced a 3 and a half hour difficult process down to flat 30 minute cake walk.

Including this code in the Worbook_BeforeClose event procedure will save it as the current date:

Please Login or Register  to view this content.

If you want to override the file (if you close the workbook more than once on the same date), then you can use:

Please Login or Register  to view this content.

HTH

Jason

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Format(Date, "yy-mm-dd") <--This line is giving me a debug error
Application.DisplayAlerts = True

If you would like to see the code i have atm you can see my file here.
Thank you.