" usually run a couple of workbooks in one workspace "
what is one workspace?

this will save and close and open workbooks and then exit excel, is this
what you want?

Sub Close_All()
'will save all open workbooks and close excel
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Workbooks
w.Save
Next
Application.Quit
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Carlton Patterson" wrote in message
...
Hello all,

I usually run a couple of workbooks in one workspace and the only way to
close the workbooks within a workspace is to either:

1) Close each workbook individually

2) Holding the 'shift' key and clicking on 'file' and then clicking on
'close all'.

I have been trying to record a macro to make this easier, but without
any success.

Can someone either let me know if there is another way to close a number
of workbooks within a workspace or help me put together a macro or an
excel program that will alleviate this laborious action?

Cheers

Carlton

*** Sent via Developersdex http://www.developersdex.com ***