Hi,

Please help me...I wanna make like slide show based on my data in some sheets. Looping from the 1st active sheet to next sheet and than back again to the first sheet and it will change every 10 second. Please suggest for the command of macros

I have tried with this, but it is not looping. It was stop at the last sheet

Sub StartSlideShow()
Application.OnTime Now + TimeValue("00:00:05"), "ShowNextSheet"
End Sub

Sub ShowNextSheet()
Dim lastIndex As Integer, nextShtIndex As Integer

lastShtIndex = Worksheets.Count
nextShtIndex = ActiveSheet.Index + 1

If nextShtIndex <= lastShtIndex Then
Worksheets(nextShtIndex).Select
StartSlideShow
Else
MsgBox "End of slide show"
End If
End Sub

Thank you before....
Helmi