Slide Show Worksheet

[helmi_jusuf]

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

[AlphaFrog]

Try this. Run the macro SlideShow_Stop to quit the slide show loop.

Please Login or Register  to view this content.

[helmi_jusuf]

Hi Alpha...

Thank you...I have tried for the slide show stop but it is not working well. It was displayed as massage error

Thanks
Helmi

[helmi_jusuf]

Hi all,

If anyone can give me solution...
I want to run some active worksheets in one excel file to another active worksheet in different excel file automatically with macros...

Thank you very much before
Helmi