Abbrechen mit Escape

ich habe in meiner Exceltabelle (Preisliste mit über 40 Tabellen) mehrere Makros erstellt (die auch funktionieren), die aber z.T. 1- 2 Minuten laufen. Da kommt es schon mal vor, dass der eine oder andere meint, der Rechner oder Excel selber habe sich aufgehängt und dann drücken sie "Escape" - was folgt ist eine Fehlermeldung.

Ich möchte nun, dass sich das Makro beenden läßt (Exit Sub), sobald einer Escape oder bei einem Inputfenster die "Abbrechen"-Taste drückt.

Hat von euch einer eine Lösung parat?

Danke schon mal

Franz