automatic sheet rotation

[#1]

Hi together,

I have several sheets to be rotation every 10 seconds. 

I have found quite a few threads in this forum, but unfortunately no one works for me.

example:

Sub switchTab

For x = 0 to 5

ActiveDocument.ActivateSheet x

ActiveDocument.GetApplication.Sleep 1000

ActiveDocument.GetApplication.WaitForIdle                  

next

End Sub

Did anyone of you a solution or macro that works ?

Thank you very much.

Best Regards,

Hon