在宏运行时如何单击另一个宏？

Question

我正在尝试编写代码，该代码每10分钟自动刷新一次网站。我有一个“开始”和“停止”按钮。单击开始按钮后，刷新将开始。问题是因为代码正在运行，所以我无法单击“停止”按钮。

这是我的代码：

Public Sub Start()

    wksMain.Range("A5").Value = "start"

x:
    VBA.DoEvents

    If wksMain.Range("A5").Value = "stop" Then Exit Sub

        AppActivate "Kampala - Wikipedia"
        SendKeys "{F5}"
        Application.Wait (Now + TimeValue("00:10:00"))

    GoTo x

End Sub

Public Sub Stopper()
    wksMain.Range("A5").Value = "stop"
End Sub