Remove All Animation (vba)

Sometimes you receive a presentation ansd the animation is just GROSS!

This code will remove it ALL in seconds (not animations on master)

Don't know how to use code - See Here

The Code

Sub zap_ani() 
    Dim oeff As Effect 
    Dim i As Integer 
    Dim t As Integer 
    Dim osld As Slide 
     'remove normal animations
    For Each osld In ActivePresentation.Slides 
        For i = osld.TimeLine.MainSequence.Count To 1 Step -1 
            osld.TimeLine.MainSequence(i).Delete 
        Next i 
         'Remove triggers
        For i = osld.TimeLine.InteractiveSequences.Count To 1 Step -1 
            For t = osld.TimeLine.InteractiveSequences(i).Count To 1 Step -1 
                osld.TimeLine.InteractiveSequences(i).Item(t).Delete 
            Next t 
        Next i 
    Next osld 
End Sub