Save as - provide filename but user picks location

[Thwarted]

Hi

I have searched Save As and do not see this question though I am sure it had to have been asked and answered so I am sorry for the repeat if it does exist.

I need to code my Excel sheet to Save As where i provide a filename based on contents of a cell - but I allow them to choose the path.

Sorry for this very basic question - I am sure it is easy as pie I just dont know how to do it.

Sub SaveAsExample()

Dim FName As String
Dim FPath As String

FPath = ""
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName


End Sub

The code above just saves to default path

Thanks in advance for your help.

 

[mintjulep]

FPath = application.filedialog(msoFileDialogFolderPicker).SelectedItems (1)

 

[SkipVought]

Hi,

Check out the GetSaveAsFileName method in VBA Help.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Thwarted]

Thanks guys!

The GetSaveAsFileName method worked great!