我需要停止这个宏

Question

此宏不断运行，并且不允许其他宏运行。因此，此宏应在其他宏启动时停止，并应在其他宏停止时启动

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub changeSh()
    While (True)
        Sheets(1).Activate
        Application.Wait Now + TimeSerial(0, 0, 300)
        Sheets(2).Activate
   Application.Wait Now + TimeSerial(0, 0, 300)
    Wend

End Sub

Answer 1

也许您可以在循环中添加Do Events以允许您在宏运行时执行其他操作？

但我真的不明白为什么要让它定期切换纸张。也许有更容易实现最终目标的方法。