すみません、お手数ですが教えて頂きたく宜しくお願い致します。

現在、以下のマクロにて前もって決められたデータを下回った時、または右クリックにて処理を中断（または終了）するように作成したのですが、思わぬエラーがでてきました。
エクセルを立ち上げ後（他の作業後も）、このマクロを始めて処理するときによく起こるのですが、キーやマウスを未操作にもかかわらず“中断しました”の処理でマクロを終了してしまいます。
どこに問題点があるのでしょうか？　皆目分からない為宜しくお願い致します。
Sub 連続処理()
For I = 1 To 10
If 色別.Value = 下限 Then MsgBox "データ下限です。終了します。": Exit Sub
ActiveWindow.SmallScroll Down:=1
If GetAsyncKeyState(2) <> 0 Then MsgBox "中断しました": Exit Sub
Call E_DOWN_DAY
Next
End Sub