与Application.OnTime循环

Question

I have a program that is working but I am trying to improve it. The actual code is like this:

Sub Main()
    frequencyinterval = Now + TimeValue("00:00:10")
    Application.OnTime frequencyinterval, "Sheet1.Subordinate"
End Sub

Sub Subordinate
    'Do some things
    Call Sheet1.Main 
End Sub

It seems to me that something like this would be better than calling Main from the sub. Problem is that it shuts down Excel.

Do While Cells(10, 1).Value = "Running"
    Frequencyinterval = Now + TimeValue("00:00:10")
    Application.OnTime frequencyinterval, "Sheet.Main"
Loop

I would appreciate any suggestions.

I thought that recursive calls were bad. However, nothing else works. A wait within the do while stops the data feed of incomong stock prices.

After the program has run for a few hours my computer goes into slow motion and later just locks up.

Answer 1

Run Main once to start the loop

Sub Main()

    If Cells(10, 1).Value = "Running" Then

        'do some things
        Call CheckTheThing()

        'Schedule the next run
        frequencyinterval = Now + TimeValue("00:00:10")
        Application.OnTime frequencyinterval, "Sheet1.Main"

    End If

End Sub