abcsave is not used after you've got it from GetSaveAsFilename.

GetSaveAsFilename only retrieves the name as a string. It is up to you to
use that string for saving.

I suggest you change
ActiveWorkbook.Save
to
ActiveWorkbook.SaveAs abcsave


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Geo Siggy " wrote in message
...
Hi,

I like to save a file before closing. The user may choose a free name
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 save
menu. Whats wrong with the code ?

The code:

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

Any idea ?. Thanks. Siggy


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