Erro VBA Erro de compilação: Próximo sem For

Question

Alguém pode me ajudar e ver o que eu fiz de errado no código abaixo. Eu continuo recebendo erro Erro de compilação: Próximo sem 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

O {If, Else, End If} deve estar completamente dentro do loop For .