Remove All Animation (vba)

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

This code will remove it ALL in seconds

Don't know how to use code - See Here

The Code

Sub zap_ani()
Dim oeff As Effect
Dim i As Integer
Dim osld As Slide
For Each osld In ActivePresentation.Slides
If Val(Application.Version) < 10 Then
For i = 1 To osld.Shapes.Count
osld.Shapes(i).AnimationSettings.Animate = msoFalse
Next i
Else
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 Each oeff In osld.TimeLine.InteractiveSequences(i)
oeff.Delete
Next oeff
Next i
End If
Next osld
End Sub