当我们激活或处理 Excel 表并在理想或非活动阶段开始运行此宏时，如何在代码下方停止？

Question

当我们激活或处理 Excel 表并在理想或非活动阶段开始运行此宏时，如何在代码下方停止？ excel 片材的代码返回，时间间隔为 5 秒，使用宏的 VB 代码。

Sub StartSlideShow()
    Application.OnTime Now + TimeValue("00:00:05"), "ShowNextSheet"
End Sub

Sub ShowNextSheet()
    Dim lastIndex As Integer, nextShtIndex As Integer

    lastShtIndex = Worksheets.Count
    nextShtIndex = ActiveSheet.Index + 1

    If nextShtIndex <= lastShtIndex Then
        Worksheets(nextShtIndex).Select
        StartSlideShow
    Else
        MsgBox "End of slide show"
    End If
End Sub