Hi,

Anyone knows how close all inactive workbooks without saving and thus having
just one workbeek (the active)?!

Thnx

Hello

Dim wWorkb As Workbook
For Each wWorkb In Application.Workbooks
If wWorkb.Name <> ActiveWorkbook.Name Then wWorkb.Close (False)
Next wWorkb

HTH
Cordially
Pascal

"Basta1980" <(E-Mail Removed)> a écrit dans le message de
news: 007621CB-F75A-458A-8E50-(E-Mail Removed)...
> Hi,
>
> Anyone knows how close all inactive workbooks without saving and thus
> having
> just one workbeek (the active)?!
>
> Thnx

This should work:

Sub CloseAll()
Dim WkbkName As Object
On Error GoTo Close_Error
For Each WkbkName In Application.Workbooks()
If WkbkName.Name <> ThisWorkbook.Name Then WkbkName.Close
savechanges:=False
Next
Close_Error:
Resume Next
End Sub