Out of Range Error mit Power Point

Folgender Code verursacht bei mir einen Out of Range Error, leider weiß ich nicht warum.
-------------------------------------------------------------------------------------------
Sub Anything()
Dim sl As Slide
Dim ii As Integer
Dim i As Integer
For Each sl In ActivePresentation.Slides
   If sl.Shapes.HasTitle = msoTrue Then
       If sl.Shapes.Title.TextFrame.HasText = msoFalse Then
           sl.Shapes.Title.Delete
       End If
   End If
   ii = sl.Shapes.Count
   i = 1
   MsgBox ii
   Do
       With sl.Shapes(i)
           If .HasTextFrame = msoTrue Then
               With .AnimationSettings
                .Animate = msoTrue
                 .EntryEffect = ppEffectFlyFromLeft
                .TextLevelEffect = ppAnimateByFirstLevel
                .AnimateBackground = msoTrue
               End With
           End If
       End With
       i = i + 1
   Loop Until i < ii
Next
End Sub
---------------------------------------------------------------------------------------------
Wäre nett wenn ich mir sagen könntet wo der Fehler liegt.

Hi guest,

in welcher Zeile bricht denn der Makro ab bzw. wann kommt diese Meldung ?

So als Blinder ohne PP würde ich erstmal vorschlagen die Do-Schleife in eine For-Schleife zu ändern.

For i=1 to ii
...
next

Gruß Matjes

Bei der Zeile With sl.Shapes(i)

Und was wurde vorher als->MsgBox ii' ausgegeben ?