score:1

Accepted answer

Change your GetSaveAsFilename to

flToSave = Application.GetSaveAsFilename _
(ThisWorkbook.Path & "\" & flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Save FileAs...")

This starts the SaveAs in the specified directory


Related Query

More Query from same tag