Показать каждый лист в непрерывном цикле

Question

Я пытаюсь создать макрос, который показывает каждый рабочий лист в книге в непрерывном цикле, переходя на следующую страницу каждые 5 секунд. У меня есть график на каждом листе, который должен отображаться в непрерывном цикле.

Answer 1

Win 32:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) 
Sub ShowWs() 
Dim ws 
For Each ws In ThisWorkbook.Worksheets 
    ws.Activate 
    Sleep (1000) 
Next ws 
End Sub