VBA Saving to specific folder

[ReeceC952]

Hi,

I have a macro (code below) that runs when a button is pressed. It opens up the save as dialog box and restricts the save as type to marco-enabled workbooks.

Sub save()

varWorkbookName = Application.GetSaveAsFilename( _
fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")

End Sub

My issue is that the save as box is by default in the My Documents folder but I would like this to open in a folder of my choosing. Is there a way I can edit the above code so that the save as box opens in the folder I would like?

Thanks, Reece

 

[Trevor G]

Hi Reece,

Try using:

Application.FileDialog(msoFileDialogFolderPicker)

 

[Boller]

Try this :

[COLOR=#333333]
Sub save()[/COLOR]

[COLOR=#ff0000]ChDir "D:\My Doc"[/COLOR] 'Change as required


[COLOR=#333333]varWorkbookName = Application.GetSaveAsFilename( _ [/COLOR]
[COLOR=#333333]fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") [/COLOR]

[COLOR=#333333]End Sub[/COLOR]