我正在运行一个视野测试，在其中我可以看到＃个在不同灰度级别上正确的单元格选择。该代码按预期工作，但自动运行/刷新除外。该代码似乎会逐渐展开堆栈，而不是按预定的时间间隔刷新。

代码：

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次时，它会执行此操作。问题是当我尝试在私有子worksheet_calculate（）子例程中使它自动化时。