Save As Dialog
Derek,
use the GetSaveAsFileName dialog, sort of like thois
fileSaveName = Application.GetSaveAsFilename( _
initialfilename:=Range("A1"), _
fileFilter:="Microsoft Excel Files (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If
--
HTH
Bob Phillips
"Derek" wrote in message
...
When the user selects "Save As..." I would like the dialog
box to display a default value (from a cell on a
worksheet) for the the name of the file to save. Any help
would be appreciated.
|