VBA　５分ごと　２時間以上継続するプログラムが約１時間でエラーなく止まるのはなぜですか？

プログラム通り指定時間になるまで作動してほしいです。

発生している問題・エラーメッセージ

　銘柄数を限定して１分ごと８時半から指定時間１０時半まで
　FOR文で繰り返し作業のプログラムを組んで稼働させましたが、
　稼働から１時間過ぎたぐらいでエラー表示もなく終了した形
（もう一度稼働される状態）になります。
  
  ご教授ください。宜しくお願いします。

エラーメッセージは特にありません


### 該当のソースコード

```VBA

``` Dim 省略
    Sub timer1()

    Sheets(1).Select
    Application.OnTime TimeValue("08:30:00"), "稼働"
    End Sub
　　Sub 稼働()
　　省略

　　Application.Wait Now() + TimeValue("00:01:00")
    
    If TimeValue(Now) >= TimeValue("10:30:00") Then  '終了
    
        MsgBox "終了時刻になりました。"
        Application.CutCopyMode = False
    Exit Sub
    Else
    End If
    
Next
End Sub
### 試したこと

ちなみに、PCのスリープモードや電源の時間制限も
作業時は時間制限を無制限にしてやっています。

### 補足情報（FW/ツールのバージョンなど）

エクセル2016　LAPTOP　OS:windows8.1Pro CPU:core(TM)i7-5500U メモリ:8GB

行動規範の内容に同意します

回答3件

ベストアンサー

プロシージャが延々と実行中だとフリーズしたと判断されるのかも。

稼働プロシージャ内でFor Nextループさせるのではなく、
OnTimeで1分ごとに処理を呼び出したらどうでしょうか。

vba
1Sub timer1()
2    Dim StartTime As Date: StartTime = TimeValue("08:30:00")
3    Dim EndTime As Date: EndTime = TimeValue("10:30:00")
4    Dim TimerInterval As Date: TimerInterval = TimeValue("00:01:00")
5    
6    If TimeValue(Now) < StartTime Then
7        Application.OnTime StartTime, "timer1"
8    ElseIf Time < EndTime Then
9        Call 処理
10        Application.OnTime Now() + TimerInterval, "timer1"
11    Else
12        MsgBox "終了時刻になりました。"
13        Application.CutCopyMode = False    
14    End If
15End Sub
16
17Sub 処理()
18
19    Sheets(1).Select
20
21    '実行したい処理
22
23
24End Sub