Save copy to newly created directory in the existing folder structure

[wpryan]

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:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


    Dim fName, cPath, nPath, fDate As String
    On Error Resume Next
    fName = ThisWorkbook.Name
    cPath = ThisWorkbook.Path
    fDate = Format(Date, "yymmdd")
    
    nPath = cPath & "\" & fDate & " " & fName
    
    MkDir nPath
    ChDir nPath


   Application.Dialogs(xlDialogSaveAs).Show fName & ".xlsm"
   
End Sub

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...

 

[DebugGalpin]

The directory is created by npath, but you don't reference it in you save as location, try adding it into
Application.Dialogs(xlDialogSaveAs).Show npath & "\" & fName & ".xlsm"

 

[wpryan]

Thanks for your response. I tried this, and once again the new folder is created but the default "save as" path is the parent folder. Also, the file name is not populated in the dialog box, it's just blank, and the default file format is ".xls" I'm running Excel 2013, by the way...

 

[wpryan]

I just cross posted here: Save copy to newly created directory in the existing folder structure
...in case anyone else is interested in the follow up.