Dim wkb As Excel.Workbook
For Each wkb in Application.Workbooks
' schließe alle nicht aktiven Mappen + schließe nicht diejenige Mappe in welcher dieses Makro läuft
If Not (wkb Is Application.ActiveWorkbook Or wkb Is Application.ThisWorkbook) Then
Call wkb.Close(SaveChanges := False)
End If
Next
ungetestet
|