Open save window in file path from cell and populate filename from cell

Question

I need a simple code that will open the save window in a file location from a cell and also populate the file name from a cell, leaving the save window open so you can edit the path or filename before you click save if need be

I'm using this code but it only populates the filename

Application.Dialogs(xlDialogSaveAs).Show Range("A3").Text & "- (Submittal)" & ".xlsx"

I would like it to also open the save window in a file path from cell "A2"

Also i don't know if it matters but this will be ran on a workbook that has never been saved before

Answer 1

This will get filename from Cell A1 and Path from Cell A2 both on Sheet(1) . Ensure that the path is in the format C:\\Users\\name\\ remembering to ensure there is a backslash \\ after the path.

Sub SaveAs()
Dim fPth As Object
Dim Path As String
Path = Sheets(1).Range("A2").Text
fileName = Sheets(1).Range("A1").Text
Set fPth = Application.FileDialog(msoFileDialogSaveAs)

        With fPth
            .InitialFileName = Path & fileName & ".xlsx"
            .Title = "Save your File"
            .InitialView = msoFileDialogViewList
            .Show
        End With

End Sub