Saving file to a specific folder

I created a template form in Excel. However, when I save a completed form,
the save menu automatically brings up My Documents. I continually have to
navigate to the specific folder I want to save to. This is a pain to do this
all the time.

How do I adjust the template's properties to automatically choose the
specific folder to save to?

Look at the Subject: Saving file to a specific folder topic a couple of spots
down for a couple of ideas.

tj

"richkim2000" wrote:

> I created a template form in Excel. However, when I save a completed form,
> the save menu automatically brings up My Documents. I continually have to
> navigate to the specific folder I want to save to. This is a pain to do this
> all the time.
>
> How do I adjust the template's properties to automatically choose the
> specific folder to save to?

Hello Guys, I am newbie in this forum sorry for intercepting this thread. I'm proud to say that I learned some of macros posted here. I'd like some of your ideas to please could anyone help me with my macro? I got a workbook with a lot of worksheets, I tried many coded here to solve but this code below it seems okay for me as per the designed of the code but the problem is that, when I close excel and open it again it comes back to the default file location setting. What I want to be happen is that I need the exact save file location whoever user will be use and save it Eg. Sheet1. Thank you so much in advance.


ActiveWorkbook.Save
Dim filename As String
Dim SavePath As String

Worksheets("Invoice Approval (Kazeem)").Activate
filename = Application.GetSaveAsFilename(InitialFileName:="Kazeem2016", _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Please add month and date for the file sequence number")

If filename <> "False" Then
With ActiveWorkbook
SavePath = "\\SERVER\Newsharing\Salesman's Invoice File\" & Trim(Format(Date, "dddd"))
.Worksheets("Invoice Approval (Kazeem)").Range("A1:N41").ExportAsFixedFormat Type:=xlTypePDF, _
filename:=filename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End If
End Sub