VBA that saves filename with name that is same as the directory it is placed in

The spreadsheets I use at work must be saved in a directory that is auto-generated by a separate application. Each directory has a unique name. I would like to create a macro that opens the "save as" dialog, allows me to point to the directory I wish to save in, and then name the workbook automatically with the same name as the unique directory it is placed in. Is this possible?