Auto save and close
 

Hi,
I have been using a simple Macro to save and close a workbook in Excel 2003
without problems.
Sub cs()
'
' Rem: Saves & closes sheet.

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

After changing to Excel 2007 this Macro closes Excel after closing the
workbook and I have tried various options to stop this without success. If I
select and run the macro from the drop-down box it works, but when assigned
to an auto shape it does not. Has anyone got an answer to this?
Frank.