Hi gtslabs

You can use GetSaveAsFilename
I use the value of Sheets("Sheet1").Range("A1").Value

Sub Test()
Dim fname As Variant
fname = Application.GetSaveAsFilename(Sheets("Sheet1").Ran ge("A1").Value, _
fileFilter:="Excel Files (*.xls), *.xls")
If fname < False Then
ActiveWorkbook.SaveAs fname
Else
'do nothing
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"gtslabs" wrote in message ups.com...
How can I make the default "save as" file name that appears when the
window dialog box opens reference a cell in the worksheet where I have
its name stored.