Solved: Workbook_beforesave saves file twice

[TheAntiGates]

Application.GetSaveAsFilename lets the user choose a name and location. You can preload them where you want with ChDir. If you want to be elaborate, you might perform your own edits on what you allow as to filename and locations, a la[vba]Dim sDestPath As String
sDestPath = Application.GetSaveAsFilename(, , , Title:="Set destination dir")
sDestPath = Left(sDestPath, InStrRev(sDestPath, "\") - 1) ' strip all following final \, so it's a dir name only[/vba]and mess with the directory name and such, maybe later going
Application.SaveAs sDestPath & sMyFileName

Or just[vba]sOutFileName = Application.GetSaveAsFilename(, , , Title:="Set destination file")
Application.SaveAs sOutFileName[/vba]