Hi Orion

Change MyPath

Sub test()
Dim FName As Variant
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = "C:\Users\Ron\Test2\"
ChDrive MyPath
ChDir MyPath

FName = Application.GetSaveAsFilename("", _
fileFilter:="Excel Files (*.xls), *.xls")
If FName < False Then
' do your Save stuff
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--

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




"Orion Cochrane" wrote in message
...
I would like to call up the Save As dialog box, but get it to save in a
specific folder, as opposed to the current workbook's path. Eg. Instead of
the workbook's path of "C:\Test\Test.xls", I would like it to look in
"C:\Test2" and let you choose a filename.

TIA.
--
I am running on Office 2003, unless otherwise stated.