Combine Powerpoints and make random slide show

I have a set of 10 Powerpoint presentations that I combined into one presentation with Histology image identification questions. I wanted to play the slide show in a random order so that I don't know what image comes next and I can really test myself.

Here's how to do it

From within the Powerpoint you want to randomize Alt+F11 to open Visual Basic. Make sure your Powerpoint is highlighted on left-hand side. Click Insert => Module

copy and paste the following

Code:

Sub sort_rand()

    Dim i As Integer
    Dim myvalue As Integer
    Dim islides As Integer
    islides = ActivePresentation.Slides.Count
    For i = 1 To ActivePresentation.Slides.Count
        myvalue = Int((i * Rnd) + 1)
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides(myvalue).Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides(islides - 1).Select
        ActiveWindow.View.Paste
    Next

End Sub

Click Run, then Run again or hit F5.

Voila.

Cool - thanks a lot!