Stop application i en loop

Jeg har et regneark, som jeg gerne vil have skal lukke og gemme automatisk, såfremt der ikke har været nogen aktivitet i regnearket i 1 minut.

Min tanke gang er, at en "time" er indsat i celle B5 og ændres ved "changes" i arket.

Herefter måler macroen på om differencen mellem celle B5 og "now" er over eller under et minut, hvis over så lukker og gemmer den automatisk. Loopet har jeg lavet med en applikation "Application.OnTime Now + TimeValue("00:00:01"), "auto_close()" (hvor selve suben er auto_close() og hvis tidsdifferencen er under et minut, så kører macroen automatisk efter et sekund igen, som et slags loop)

Det fungerer fint. Problemet opstår, når man selv vil lukke regnearket på sædvanligvis, så køerer "Application.OnTime Now + TimeValue("00:00:01"), "auto_close()" stadig i min macro, hvilket vil sige, at hvis jeg lukker og sig ja eller nej til at gemme, og så åbner den automatisk regnearket igen, fordi min application stadig kører indtil tidsdifferencen er under 1 minut. Hvordan stopper jeg den application, når jeg manuelt lukker arket ??

Jeg har prøvet at kører det hele med loop, men så kan jeg jo ikke arbejde i arket mens loopen kører. Jeg ved godt, at jeg kan bruge application.quit, men den lukker også eventuellet andre regneark, hvorfor det ikke er en mulighed.

Først gang herinde, så jeg håber på nogle gode konstruktive svar.... Tak !!!!