If a textbox with the name "Textbox1" is present on a current slide a counter wil start.

But only when the counter has stopped you can navigate to another slide. How can i cancel prematurely the loop so i can navigate to another slide?


PublicSub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)

Dim t AsDate
Dim s As Shape

ForEach s In Wn.View.Slide.Shapes

If s.Name ="Textbox1"Then

t = DateAdd("s",10, Now())

DoUntil t < Now()

DoEvents

Wn.View.Slide.Shapes("Textbox1").TextFrame.TextRange.Text = Timer

Loop

EndIf

Next s

EndSub