How to change the directory when using saveas dialog

[jproffer]

Hi folks,

I can't quite figure this out, but I think (hope) I'm close. I'm trying to force the Save As dialog box to change to the "T:\SUPERVISORS REPORTS" directory after the rest of the code is finished. I'm just not quite sure where (or if that's even the correct way to do it) to put the second line of the code below (The "ChDir" line).

If anyone can fix this up, or tell me how to...or if you have another, better way, I'm all for that too.

Application.Dialogs(xlDialogSaveAs).Show (StrConv(TextBox1.Value, vbProperCase) & " " & Format(Year(Now()), yyyy) & ".xlsm")
    ChDir "T:\SUPERVISOR REPORTS"

Thank you for any help you can give

 

[Logit]

.
This is one way :

In your existing macro, where you want to change the SAVE AS command to another folder, insert the name of this macro Example5 :

Sub Example5()
Dim varResult As Variant
'displays the save file dialog
varResult = Application.GetSaveAsFilename(FileFilter:= _
"Excel Files (*.xlsx), *.xlsx, Macro Enabled Workbook" & _
"(*.xlsm), *xlsm", Title:="Some Random Title", _
InitialFileName:="C:\Users\logit\Desktop\Clocks") '<---------------------- edit this path for the desired new folder location
'checks to make sure the user hasn't canceled the dialog
If varResult <> False Then
Cells(2, 1) = varResult
End If
End Sub

 

[jproffer]

So far that's working

Thank you

 

[Logit]

You are welcome