Loop Through Worksheet

[ps1]

Hi all,

Hope someone can help. Is it possible to have some sort of vb/macro code to scroll through 2 particular worksheets and display 1 worksheet for a set period then the other, have that on loop and then if say the key 'x' is pressed stop the macro?

What I am in the process of building is a reporting board, and performance related board but wish to show both of these on our widescreen TV.

All help appreciated thanks.

 

[Ruddles]

This is a very simple piece of code which you can incorporate fairly easily into a longer program if necessary:-

Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Sub SwitchSheets()
 
  Do
 
    Sheets("[B][COLOR=red]Sheet1[/COLOR][/B]").Activate
    Application.Wait Now() + TimeValue("[COLOR=red][B]00:00:05[/B][/COLOR]")
 
    Sheets("[B][COLOR=red]Sheet2[/COLOR][/B]").Activate
    Application.Wait Now() + TimeValue("[COLOR=red][B]00:00:05[/B][/COLOR]")
 
    If GetAsyncKeyState(vbKeyShift) Then Exit Sub
 
  Loop
 
End Sub

Paste into a general code module and change the bits in red to suit. It stops when you hit the Shift key.

 

[ps1]

Thank you very much for this, works a treat.