macro open tabs

[JOSEPH WEBER]

can i have a Macro that opens each tab and displays it for a number of
seconds then opens the next tab and does the same thing until the last tab?
Can this be without specifying tab names?

 

[Mike H]

Hi,

This will show each sheet for 5 seconds

Sub ShowSheets()
For x = 1 To Worksheets.Count
Sheets(x).Activate
Application.Wait (Now + TimeValue("0:00:5"))
Next
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[JLGWhiz]

Sub dk()

For Each sh In ActiveWorkbook.Sheets
sh.Select
s = Timer + 2
Do While Timer < s
DoEvents
Loop
Sheets(1).Select
Next
End Sub