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

[xladept]

Hi Ovega,

Try this - you may want to play with the delay:

Sub Ovega(): Dim T As Single
T = Timer
While Timer - T < 1: Wend
Sheets("Sheet2").Select

While Timer - T < 2: Wend
Sheets("Sheet3").Select

While Timer - T < 3: Wend
Sheets("Sheet1").Select

End Sub

[nje]

Thank you for providung this code, If I change the 1,2, or 3, is that what controls the timing?
I have just used it and worked (as it is aboove) from a button and it is very clever, Could it work automatically when the workbook is opened?

[arlu1201]

Ovega,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.

[xladept]

Yes, the timing is controlled by the 1,2,3. Yes, it could be called with the Workbook_Open event:

Private Sub Workbook_Open()
Ovega
End Sub

[nje]

xladept - exellent, thanks for the advice and code, that's solved it for me but original poster needs to mark it as solved

[xladept]

You're welcome!