「本当に」パワーポイント上のすべてのアニメーションを削除するマクロ

Sub DeleteAllAnimations()
  Dim sld As Slide
  Dim cl As CustomLayout
  Dim i As Long
  Dim tl As TimeLine
 
  If MsgBox("Are you sure you want to delete all animations of this presentation?", vbYesNo) = vbNo Then Exit Sub
  
  For Each sld In ActivePresentation.Slides
    With sld.TimeLine
        For i = .MainSequence.Count To 1 Step -1
            .MainSequence(i).Delete
        Next i
    End With
    
    With sld.Master.TimeLine
        For i = .MainSequence.Count To 1 Step -1
            .MainSequence(i).Delete
        Next i
    End With
    
    For Each cl In sld.Master.CustomLayouts
        With cl.TimeLine
            For i = .MainSequence.Count To 1 Step -1
                .MainSequence(i).Delete
            Next i
        End With
    Next cl
  Next sld
  
  MsgBox "Finished"
End Sub