Jump to a Random Slide
This is the code to jump to a random slide within a given range. Give an action button an action of Run > Macro > randjump to use it.
To generate the random number use this formula:
Number =Int((highest number in range - one less that lowest number)*rnd + lowest number in range)
eg For a number between 4 and 10
number = Int(10-3)*rnd+4) ---OR -- Int(7*rnd +4)
So here's the code to jump to a random slide between 4 and 10
Sub randjump()
randomize
Dim Inum As Integer
Inum = Int(7 * Rnd + 4)
ActivePresentation.SlideShowWindow.View.GotoSlide (Inum)
End Sub