Hi,

The following is taken from a macro that I use to save to a pre-determined
location.


Dim Fname, Suggested, Hdr, Fs, Res
Suggested = ThisWorkbook.Path & "\" & "Schedules " & Format(Date, "dd mmm
yy")
Hdr = "Please choose a Destination and a Name for your file, then click
Save."
GetFname:
Fname = Application.GetSaveAsFilename(Suggested, fileFilter:="Excel File
(*.xls), *.xls)", Title:=Hdr)
.. . . . . .

'Suggested' is the path that appears as 'default'.. It can be whatever you
want.

Don



"sam" wrote in message
oups.com...
Hi Tim,

But in this function i cannot give the input?

Please show me the code

Thank you,
Sunil