Bei Betätigung der Pfeiltasten oder Klick mit der Maus, bleibt jeweils eine zweite Zelle markiert.
Abhilfe schafft am Ende des Codes die Befehlszeile:
Application.ScreenUpdating = True
Auch wenn die Bildschirmaktualisierung zuvor nicht im Code ausgeschaltet wurde.