Hi, heres the code i have so far, I have tried many different methods to
specify a save path, but the dialog box keeps defaulting to "c:\my Documents".
Any help would greatly be appreciated.

*************

Sub CustomSaveAs()

Dim res As Variant, sName As String
With Worksheets("SA009_Prepsheet")
sName = .Range("G4").Text & " - " & .Range("C13").Text
End With
res = Application.GetSaveAsFilename(InitialFileName:=sNa me,
fileFilter:="Excel Workbook Files (*.xls), *.xls")
If res = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=res

End Sub