Ошибка компиляции: Далее без For в макросе PPT VBA

Question

Sub fixdsd()

For q = 1 To 20

If ActivePresentation.Slides(40).Shapes(q).Name = "Wrong" Then

With ActivePresentation.Slides(40) _
        .Shapes(q).ActionSettings(ppMouseClick)
    .Action = ppActionRun
    .Run = "Answer"

    .AnimateAction = True
End With

On Error Resume Next

Next q

End If

End Sub

Я получаю ошибку компиляции: Далее без For. Может кто-нибудь указать, пожалуйста, как это исправить?