Help w/ VBA to Save As & Select Dir

[julia55]

I am looking to write a macro that will save a file to the directory of the user's choosing, but the filename is provided in one of the cells. So far the code I have below works, but only saves in whatever the last directory accessed was. Any suggestions?

    ActiveWorkbook.SaveAs Filename:= _
        Sheet3.Range("F1").Value, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[julia55]

Figured it out.

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
    ActiveWorkbook.SaveAs Filename:= _
        Sheet3.Range("F1").Value, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End With