Hi Harald Staff,

Thanks for the codes.

May I know how to assign a button at the tool bar for this code ?

Any URL to explain it in detail ?

Thanks

Low


"Harald Staff" wrote:

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

.