Switch sheet in workbook with VBA/loop and time schedueling

[NiklasNordkvist]

Hi!

Hope someone can help me with this, I am not used to VBA but knows how to navigate there :D
How do I make a macro that change sheet in a workbook and also shows each sheet for 15 min before switching and then starts over with ex.sheet1?

 

[NiklasNordkvist]

Can this be something?
I want a eternal loop because the excel sheets will display a report with 4 different sheets for users to view. The report will be displayed on a monitor 24/7 so users can refer the report whenever they want to.

Sub SwitchSheet()

Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Application.DisplayFullScreen = True

Dim i As Integer
Dim Pause As Double

Pause = 30 'Pause delay in seconds
Loops = 3 'How many loops do you want to do

For j = 1 To Loops
For i = 1 To 2

Worksheets(i).Select 'Select the next worksheet

x = Timer
While Timer - x < Pause 'This does the pausing
Wend

Next i
If j = Loops Then
j = 1
End If
Next j

End Sub