Getting the Rehearsal Timings for Multiple Slides in PowerPoint

When practicing a presentation, you can have PowerPoint record how much time each slide takes using rehearsal mode. Although PowerPoint shows the time for each slide in the slide sorter and in the transition information, I couldn't figure out how to get the total time for multiple slides. This is useful when you want to find out how long different sections of the presentation are so that you know if you are spending too long on certain parts. In the end, I just wrote up a quick PowerPoint macro to do it (just select some slides in the slide sorter and then run the macro to tell you the total time needed for the selected slides):

Sub TotalSlideTiming()
  Dim pres As Presentation
  Set pres = ActivePresentation

  Dim slides As SlideRange
  Set slides = ActiveWindow.Selection.SlideRange
  TotalTime = 0
  For Each s In slides
      TotalTime = TotalTime + s.SlideShowTransition.AdvanceTime
  Next s

  minutes = TotalTime \ 60
  seconds = TotalTime Mod 60

  msg = Str(minutes) + "m " + Str(seconds) + "s"

  MsgBox msg

End Sub