Try the following procedure.


Sub SaveAllAndQuit()
Dim WB As Workbook
For Each WB In Workbooks
WB.Save
Next WB
Application.Quit
End Sub

Create a new command button and assign this macro to it.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"tomro1"
wrote in message
...

i need a code that if you press a button that the excel file
saves
itself and then closes.

thx


--
tomro1
------------------------------------------------------------------------
tomro1's Profile:
http://www.excelforum.com/member.php...o&userid=35081
View this thread:
http://www.excelforum.com/showthread...hreadid=550836