Excel VB script to change sheet over certain period

[Akod]

Hello,

Please i want to display different information in different excel sheets and project it on a dashboard.
Can someone help me with a VB script to automatically switch sheets over a set period of time.

For example: Excel workbook contains 5 sheets; sheet1, sheet2, sheet3, sheet4 & sheet5.
The code will automatically switch from sheet1 to sheet2 after 30 seconds.

If an addin or a software can assist me with this situation i will be glad.

Counting on you all!

Thanks.

[strollin]

Here's something basic that will cycle thru 5 sheets, displaying each sheet for 30 seconds.

Code: [Select]

Public RunWhen As Double
Public Const cRunIntervalSeconds = 30 ' 30 seconds
Public Const cRunWhat = "SwitchSheet"  ' the name of the sub to call

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)  ' Current time + interval
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub

Sub SwitchSheet()
    Dim SheetNum As Integer
    SheetNum = Sheets(ActiveSheet.Name).Index  ' current sheet number
    If SheetNum <= 4 Then  ' set value to 1 less than max sheets to cycle thru
       SheetNum = SheetNum + 1  ' increment to next sheet
    Else
       SheetNum = 1
    End If
    Worksheets(SheetNum).Activate  ' activate next sheet
    StartTimer  ' start timer for next cycle
End Sub