Active slide i Powerpoint?

Hej
Jeg har følgende skript, der bruges som nedtælling på en bestemt slide. Desværre skal man angive hvilket slidenummer det drejer sig om. Jeg ønsker at skriptet virker på det aktive slide.

Den fulde kode er:
Dim time As Date
Dim count As Long

MsgBox ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

time = Now()
count = 180 'Minut is 60 secounds
time = DateAdd("s", count, time)

    Do Until time < Now()
        DoEvents
        ActivePresentation.SlideShowWindow.View.Slide.SlideIndex.Shapes("timerShape").TextFrame.TextRange.Text = Format((time - Now()), "hh:mm:ss")
    Loop
   
'go to next slide
ActivePresentation.SlideShowWindow.View.Next

---------------------------------

Jeg tænker, at der er i følgende kodestump, hvor der skal være henvisning til aktive slide:

ActivePresentation.SlideShowWindow.View.Slide.SlideIndex.Shapes("timerShape").TextFrame.TextRange.Text = Format((time - Now()), "hh:mm:ss")

Nogen, der kan hjælpe?