Random Excel Question

[AdamScott85]

Hi guys, I have an odd question that they are looking for an answer for in work and I am not sure. So we have an excel sheet that we share in the office that we update at regular intervals, this sheet is shared across the computers in the office and when 1 person saves it updates for everyone. We also have one of the machines wired up to a monitor which is wall mounted to show anyone in the office like the bosses the updated sheet in realtime. So that is working great, but what the boss wants is for that screen that is wall mounted to automatically rotate between 2 different sheets that we are updating and we are not sure how to do that. I thought maybe it would be a simple macro but I am really not sure. Does anyone have any ideas? Thanks

 

[jpaul]

maybe automate printing them as gifs when you quit update, and have multiple images on rotation as screen savers

 

[Grrrrr]

My very very quick effort:

Sub CycleSheets()

    ThisWorkbook.Sheets("Sheet1").Activate
    Application.Wait Now + TimeValue("00:00:10")
   
    ThisWorkbook.Sheets("Sheet2").Activate
    Application.Wait Now + TimeValue("00:00:10")
   
    Call CycleSheets

End Sub

Hopefully that's simple enough to be readable:

1. Activate Sheet1
2. Wait 10 seconds
3. Activate Sheet2
4. Wait 10 seconds
5. Start again

The code will loop forever. Press Ctrl+Break to stop it.