рефлекторный тест в Excel - проблема с запуском автоматического кода

Question

Я провожу тестирование поля зрения, где я вижу # правильный выбор ячеек на разных уровнях серого. Код работает так, как задумано, за исключением автоматического запуска / обновления. кажется, что код постепенно раскручивает стек и не обновляется с заданным интервалом.

Код:

Public response As Boolean
Public r As Integer
Public c As Integer
Public count As Integer


Sub reflex()
Dim start As Range

Set start = Range("A1")


If response = True Then
    If ActiveCell <> start.Offset(r, c) Then
        count = count + 1
        Range("A1:AZ100").ClearFormats
        start.Activate
        Beep
        response = False
    Else
        Range("A1:AZ100").ClearFormats
        start.Activate
        response = False
    End If
Else
    If WorksheetFunction.RandBetween(0, 100) / 100 > 0.2 Then
        r = WorksheetFunction.RandBetween(0, 57)
        c = WorksheetFunction.RandBetween(0, 32)
        start.Offset(r, c).Interior.Color = RGB(245, 245, 245)
        response = True
    End If
End If


start.Value = Now
ActiveWorkbook.Sheets("reflex").Calculate 'This is where the problem is

End Sub

Ожидаемый результат состоит в том, что каждые 5 секунд код выполняется и определяет правильное условиесостояние и доходы от запуска. Это происходит, когда я запускаю код дискретно 4-5 раз. Проблема заключается в том, что я пытаюсь автоматизировать это в подпрограмме private sub worksheet_calculate ().