Save copy to newly created directory in the existing folder structure

I thought this wouldn't be too hard, but it's defeating me...
I want to create a copy of a file in a folder created by the VBA code. I've tried this with limited success:

Please Login or Register  to view this content.

The folder is created, but the default "save to" location is still the parent folder. Also, I want to be able to save it as an .xlsm format, but it's defaulting to .xlsx. Thanks in advance...

...this was originally posted here: http://www.mrexcel.com/forum/excel-q...ml#post4196065
but I didn't get any good responses.

Why do you need the dialog?

Please Login or Register  to view this content.

Also, nPath is the workbooks own path, so what path are you expecting it to change to with ChDir() ? is nPath on another drive? If so you will need to use

Please Login or Register  to view this content.

before ChDir().

Hello, I added ChDir in an effort to somehow get the file to save into that directory. See attached photos... When I step through the code I see that the correct path name is assigned, but still the file "wants" to be saved to the old directory... 2015-06-26_133222.pngCropImage.png

try adding another "\" at the end of fName....

Thanks Karedog. It works fine with one exception - the code stops running a the "ThisWorkbook.Save" command. I commented it out and everything runs as advertised.