Excel - Автоматическое переключение рабочих листов L oop ** только спецификация c рабочих таблиц **

Question

Я работаю на панели мониторинга Excel и мне нужно отобразить 2 рабочих листа c в книге и переключаться между вкладками с интервалом 30 секунд для каждой вкладки, а затем вернуться на первую вкладку и повторить.

Я нашел макрос, который похож на то, что мне нужно, Excel - Автоматическое переключение рабочих листов L oop, однако я пытаюсь показать только 2 указанных c рабочих листа и не все рабочие листы в рабочей книге.

Вот код, который я использую:

Sub StartSlideShow()
    Application.OnTime Now + TimeValue("00:00:30"), "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
        Worksheets(1).Select
        StartSlideShow
    End If

End Sub

Answer 1

Примерно так:

Sub SlideToOne()
    Application.OnTime Now + TimeValue("00:00:30"), "ShowFirstSheet"
End Sub

Sub SlideToTwo()
    Application.OnTime Now + TimeValue("00:00:30"), "ShowSecondSheet"
End Sub

Sub ShowFirstSheet()
    Worksheets(1).Select
    SlideToTwo
End Sub

Sub ShowSecondSheet()
    Worksheets(2).Select
    SlideToOne
End Sub