Save all open workbooks with new names determined dynamically

I admit i am not great at macros so this is probably simple but i am stuck. I am trying to build a macro that will:

• Save all open workbooks with a new name
• That new name is the original name with a new tagline/append at the end
• The tagline/append is the same for all workbooks
• The tagline/append is populated from an input box that pops up when you run the macro
• The file should be saved with the same extension as the original file name
• The file should be saved in the same directory as the original file

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #1 requires good titles. "Need Help Building a Macro in Excel VBA" is too generic to tell us anything about your question. I have updated it for you this time because you are a new member. --6StringJazzer

There is one important point that is not in your spec. You have three options:

1. Do a SaveAs, then the open file will now be open with the new name. Any changes to the file with the original name are lost, and are saved only to the new version of that file with the new name.
2. Do #1 but do a Save first so any changes will be saved to the file with the original name before creating the new file
3. Do SaveCopyAs, which will save a copy of the original file with the new name, but it will not be open. The open file will still be the original file with the original name.

This code does #2.

Please Login or Register  to view this content.

Maybe exclude "Personal.xlsb"