Makro bei Folienübergang automatisch ausführen

Hallo liebe Experten,

ich habe folgendes Makro, das mir die nächste Folie zufällig auswählt:

Sub Random()

ActivePresentation.SlideShowWindow.View.GotoSlide Int(Rnd * ActivePresentation.Slides.Count) + 1

End Sub

Das funktioniert aber leider nur, wenn ich das Makro über eine Interaktive Schaltfläche manuel auslöse.

Ich würde das Makro aber gerne am Ende einer Folie (als Teil der Klickreihenfolge) automatisch starten, so dass der Folienübergang nicht zur nächsten, sondern zu einer zufälligen Folie führt.

Was Makros betrifft bin ich blutiger Anfänger und bitte dies bei Antworten zu berücksichtigen...

Vielen Dank im Voraus!