Want to switch between sheet's automatic.

[ovega]

I want this macro to switch between sheet's with a time interval between each sheet and shall go in loop.

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'

Sheets("Sheet2").Select
Sheets("Sheet3").Select
Sheets("Sheet1").Select

End Sub

 

[Bob Phillips]

Why would you want to do that?

 

[ovega]

Want to use a monitor that can display graphs that are in different worksheets automatic.

Came across this VBA code, but it will not update every 5 minutes (refresh in the background)


Sub TabShow()


Dim i As Integer
Dim Pause As Double


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


For j = 1 To Loops


For i = 1 To Worksheets.Count


If Worksheets(i).Visible = "False" Then GoTo 10 'Checks for Hidden worksheets and skips if hidden
Worksheets(i).Activate 'Select the next worksheet


x = Timer
While Timer - x < Pause 'This does the pausing
Wend
10: 'This is just a place marker
Next i
Next j


End Sub