SAveAS Dialog Box with VBA

[Learn_VBA]

Hi! I am using the following code to show a SaveAs Dialog Box but I require a specific folder path to be set which will be a default whenever the user saves the file.
How do I do this with the code below?

Dim Ret
strFileName = ProjID & "_" & TCG & "_" & Competitor '<~~ You can set Default name here
Ret = Application.GetSaveAsFilename(InitialFileName:=strFileName, _
fileFilter:="Excel Files (*.xlsx), *.xlsx", _
FilterIndex:=1, _
Title:="Select Folder and File Name to save Impact Assesment")
If Ret <> False Then
ActiveWorkbook.SaveAs FileName:=Ret

 

[John_w]

Include the folder path in the InitialFileName, for example:

strFileName = [COLOR=#ff0000][B]"C:\Users\" & [/B][/COLOR]ProjID & "_" & TCG & "_" & Competitor '<~~ You can set Default name here