ich möchte zum Anfang eines Makros dieses Makro alle geöffneten (außer die Datei mit dem Makro) Excel-dateien schließen lassen.
Kann mir dafür jemand den richtigen Befehl mitteilen.
Danke schon mal vorab
Sub CloseAll()
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then
wkb.Close savechanges:=False
End If
Next wkb
End Sub