SaveAs dialog to open in specific directory

[VBAveenker]

Hi -

still a novice, but getting it...

Creating a macro to Save a workbook in a specific directory. Trying to save myself time because the default directory the open upon SaveAs is the directory where the current workbook is saved, not the directory where I want it saved (and that directory is buried, hence the time saving macro). My code below works on everything except opening to the correct directory. Any hints? Thanks!

Sub Save_As()
'
' Save_As Macro
' Macro recorded 5/25/2007 by
'

'
With Application.Dialogs(xlDialogSaveAs)
.Parent = "\\FS2\Shared\Client Files\"
.Show ("Closing Book Checklist " & Range("C3") & " " & Range(" C6 "))
End With


End Sub

 

[PHV]

You may consider the GetSaveAsFilename method:
varFilename = Application.GetSaveAsFilename("\\FS2\Shared\Client Files\Closing Book Checklist " & Range("C3") & " " & Range("C6"))
If varFilename <> False Then
ActiveWorkbook.SaveAs varFilename
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[VBAveenker]

Beautiful! It's exactly what I was looking for. I had played around with the GetSaveAsFileName, but couldn't quite understand how best to implement it. Thanks again!