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

Question

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

Sub createPDFfiles()
    Dim ws As Worksheet
    Dim Fname As String
    Dim i, j As Integer
    For Each ws In ActiveWorkbook.Worksheets
    On Error Resume Next
    For i = 1 To 20
    j = 57
If (Cells(i, j)) = "1" Then
        Fname = "Annex 1.1." & ws.Index & "_result"

        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
Next

Else

        Next ws
End Sub

Answer 1

{If, Else, End If} должен быть полностью внутри цикла For .