Chose Where to Save

[justjaxi]

I have a workbook that needs a change in the final step (ActiveWorkbook.SaveAs Filename:=).

Currently the final worksheet is being saved to a specific folder (Compiled OUTPUT).

I need to change it so it prompts us to select where to save it, but with a specific file name (Quarterly Compiled_Qx_YYYY.xlsx).

I want it to be able to be saved to someone’s desktop if they chose, or any other folder they want, but maintain the file name of Quarterly Compiled_Qx_YYYY.xlsx.

How can I make it save the newly created spreadsheet to open a window to force a save directory selection but with the specific file name?

Can I simply change the string? (Drive:\Compiled OUTPUT\Quarterly Compiled_Qx_YYYY.xlsx)

Thank you!

 

[mumps]

Try:

Sub test()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            sPath = .SelectedItems(1)
            ActiveWorkbook.SaveAs Filename:=sPath & Application.PathSeparator & "Quarterly Compiled_Qx_YYYY.xlsx"
            Cancel = True
        End If
    End With
End Sub