ExcelでDoEvents

時間から時間までのExcelマクロ処理
実行すると途中で止まらないので、DoEventsを入れる

onStop = False
For k = 1 To 65534
　　DoEvents
　　If onStop = True Then
　　　　End 'マクロ処理を終わらせる
　　End If
Next

Sub CommandButton1_Click()
onStop = True
End Sub