Vicki, here is one way with a macro,

Sub Save_All_Open_Files()
Dim wkbk As Workbook
On Error Resume Next
For Each wkbk In Workbooks
wkbk.Save
Next
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

"Vicki" wrote in message
...
Hi. Does anyone know of a quick way of Saving all open workbooks without
closing them?

I know you can use Shift + File = Close All, but I want to keep all my
workbooks open.

I look forward to hearing if anyone has a solution.

Thank you!