Want to switch between sheet's automatic.

ovega

New member
Joined
Feb 11, 2013
Messages
5
Reaction score
0
Points
0
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

Super Moderator
Staff member
Joined
Mar 21, 2011
Messages
1,940
Reaction score
0
Points
36
Excel Version(s)
O365
Why would you want to do that?
 

ovega

New member
Joined
Feb 11, 2013
Messages
5
Reaction score
0
Points
0
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
 
Top