Macro: open save as dialogue, prefill filename and path BUT DO NOT SAVE YET

[zach9208]

I am looking for a macro that will populate the save as dialogue box to a specified file path and with a custom save name based on the cell value of (d4) of sheet2 . I want the user to be able to review one last time and manually click the save button.

In other words, I want the populate the dialogue box first, with the file path I selected pre-populate, along with my selected file name also prepopulated.I have tried everything! Please help.

Sub Macro1()
Application.Dialogs(xlDialogSaveAs).Show "C:\Users\c755748\Desktop\" & Sheet2.Range("D4") & ".xlsm"
End Sub

 

[BQardi]

Rereading this, it sounds confusing.
With subfolder:

Sub Macro1()
Dim wbPath As String
wbPath = ThisWorkbook.Path
If Not Right(wbPath, 1) = "\" Then wbPath = wbPath & "\"
[COLOR=#ff0000]wbPath = wbPath & "SubFolder\"[/COLOR]
Application.Dialogs(xlDialogSaveAs).Show wbPath & Sheet2.Range("D4") & ".xlsm"
End Sub

 

[Kenneth Hobson]

Obviously, you have to know if the path is a UNC path or a virtual path. We can't guess for you.

If virtual path, means a UNC path was assigned a drive letter:

Sub Main()
  Dim dt As String, fn As Variant
  dt = "u:\Department1\Invoices\" 'example virtual path with subfolders.
  fn = Application.GetSaveAsFilename(dt & Sheet2.Range("D4").Value & ".xlsm", _
     fileFilter:="Excel Marcro-Enabled Workbook (*.xlsm),*.xlsm")
  MsgBox fn
End Sub

You can find the path if you navigate and copy the Address bar in Explorer, Win+E.

 

[tygrrboi]

Why don't you see what the path is for yourself. Save it manually in the correct folder and then open that saved document. In the immediate window type
?ThisWorkbooth.Path
That will be where you want to save it.