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

First this


Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = "C:\Data\"
ChDrive MyPath
ChDir MyPath



Then you code




Then set it back


ChDrive SaveDriveDir
ChDir SaveDriveDir




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ch33baman2" wrote in message ...
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

Thanks Ron. All i really needed was ChDir "c:\savedir", but i never inserted
it near enough to the top of the script, and therfore i never worked. I
inserted as the first line & bingo. Thanks tons.


"Ron de Bruin" wrote:

First this


Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = "C:\Data\"
ChDrive MyPath
ChDir MyPath



Then you code




Then set it back


ChDrive SaveDriveDir
ChDir SaveDriveDir




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ch33baman2" wrote in message ...
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