Macro to rename current file to include folder name

I don't even know if this is possible or not, because I've searched the web for something somewhat close to what I would like to do and came up empty. I have a workbook macro that currently generates a new workbook and opens up to a main folder that list a lot of subfolders that I can choose from to save the file in. The macro automatically names the workbook with the filename I want, which is basically a part number in our system and is created from a cell within the workbook. So when the Saveas dialog box appears, I select a subfolder that uses a Sales Order number for the folder name to put the new file in and then I select Save. I'd like to be able to have that file get renamed after I choose its destination into the correct Sales Order folder to include the name of that folder. I have no idea how to make this happen. I'm guessing it would be additional code that would run right after I save it. Right now, when I save the file where I want it, the code takes me back to my original workbook, which is what I still need to do. Any ideas much appreciated.