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.