Also bei mir funktioniert das auch mehrmals nacheinander.

Aber bei erneutem aufrufen des Codes werden die alten Folien nicht gelöscht. Es werden immer neue Folien hinzugefügt. Von Aktualisierung kann man da nicht wirklich sprechen. Für Unterordner parsen(durchsuchen) gibts reichlich Codebeispiele.  Wenn du Einen gefunden hast, kannst du das Copy paste einfach einbauen.  "Sheet1" ist ein fester Blattname. Wenn es den nicht in der jeweiligen Datei gibt, dann gibts Fehler.