Hi,

I like to save a file before closing. The user may choose a free nam
for saving. by changing the original given name in the save menu.

With the following code the file will be saved with the original name
even if the user change the original name to a new name in the sav
menu. Whats wrong with the code ?

The code:

Dim abcsave As Variant
abcsave = ActiveWorkbook.Name
abcsave = Application.GetSaveAsFilename(, "Excel file
(*.xls),*.xls")
If abcsave = False Then
Exit Sub
Else
ActiveWorkbook.Save
End If
Hide
ActiveWorkbook.Close SaveChanges:=False

Any idea ?. Thanks. Sigg

--
Message posted from http://www.ExcelForum.com