Macro for Document to "Save As"

Hello. I would like some help in revising the below code. It is used to verify data before the document is saved. If data is incorrect, the user is given the choice to continue saving the file or they will be returned to the document to correct the invalid data I would like the "Save" to be changed to "Save As" so that the user can rename the document instead of automatically overwriting the existing one. Thank you.

Please Login or Register  to view this content.

Hello. Thank you for the quick response!

I copied your code to the worksheet, and made a slight change by replacing the values A1 with B28 and B2 with B30. When I Save the spreadsheet I am not getting any message box even though B28 is TRUE and B30 is blank. Instead, the document is save without any kind of prompting. I have attached the spreadsheet if you're able to look at it. VBA is completely new to me and I could quite possibly be doing something wrong. Thank you.

Please Login or Register  to view this content.

I moved the code to "This Workbook," and it did the same thing as before, but I think I see the issue. If I click on the "X" to close and save the document, the message box pops up, but if I save by either going to File > Save or pressing Ctrl-S the document saves without a message box. Is it possible to get the message box no matter what method is used for saving and still give the user the choice to return to the document if they don't want to continue saving?

It worked! Thank you so much for the help!!