Hi Low

A macro solution, assign it to a toolbar button:

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

HTH. Best wishes Harald

"Mr. Low" wrote in message
...
Hi,

I have 10 working files in an active window.

There is no Save All button under the file menu.

May I know if I can save all the files at one click without having to exit
excel ?


Thanks

Low