Save As

[Orf Bartrop]

I am a newby at programming Excel.
How do you program to bring up the "Save As" box?

Orf Bartrop

 

[yogendra joshi]

This should help:

Sub sv_as()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel File (*.xls), *.xls")
ActiveWorkbook.saveas (fileSaveName)
End Sub

 

[Orf Bartrop]

Thank you, works well. However, at present it selects My Documents
folder and I would like it to select a particulat folder. How do I
nominate that folder rather than have to select it from the dialog box?

Orf

 

[Bob Phillips]

Use

chdrive "d:\Development"
chdir "d:\Development"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)