bestanden afsluiten via macro behalve actieve file

[Jeneroy]

Hello,

ik gebruik deze macro voor het sluiten van alle files (xlsm + xlx +xlsx ) behalve actieve file.
De macro sluit een deel van de bestanden en een deel niet.

wat doe ik fout

For i = 1 To Workbooks.Count
If (Workbooks(i).Name <> ActiveWorkbook.Name) Then
Workbooks(i).Close
End If
Next i

bedankt

 

[jkpieterse]

Zorg ervoor dat je achterwaarts telt:

For i = Workbooks.Count to 1 Step -1
If (Workbooks(i).Name <> ActiveWorkbook.Name) Then
Workbooks(i).Close
End If
Next i

 

[Jeneroy]

Top, het werkt!!! Mijn dank is groot