That's because .FoundFiles should be within the with statement. Right
now it falls outside and Mr. VBA gets confused. Change it to:


Next Bandiet
End If
Verwijderen:
Kill .FoundFiles(WegErmee)
End With