How to Randomize Slides Order in PowerPoint

The easiest way to randomize slides order in PowerPoint is simply by dragging each one of them to a different position. It might work well on a smaller number Code: Sub ShuffleSlides() FirstSlide = 1 LastSlide = 9 'just change your slide numbers above' Randomize For i = FirstSlide To LastSlide RSN = Int((LastSlide - FirstSlide + 1) * Rnd + FirstSlide) ActivePresentation.Slides(i).MoveTo (RSN) Next i End Sub