Sub displaysheets()

ShtNum = ActiveSheet.Index

ShtNum = ShtNum + 1
If ShtNum Sheets.Count Then
ShtNum = 1
End If
Sheets(ShtNum).Activate
Application.OnTime Now + TimeValue("00:00:10"), "displaysheets"


End Sub


"Tim Messenger" wrote:

I want to change the displayed sheet automatically based on time. For
example, display sheet 1 for 10 seconds, then display sheet 2, etc.

Is there a way of doing this in Excel?