Udskriv kun valgte ark

Hej Excel hjælpere
Denne formel bruger jeg til at udskrive valgte ark.
Den liger den der er i denne arktitel, https://www.computerworld.dk/eksperten/spm/1013104

Men den kommer op med denne fejl melding og jeg kan simpelthen ikke regne ud hvad der går galt.

Compile error:

End If without block if.

Formlen.
Sub cbMacro_print()

Dim intRaekke As Integer
    For intRaekke = 2 To Worksheets.Count
            If Cells(intRaekke, 2).Value = "x" Then
            Sheets(intRaekke).PrintOut
            For Each Cell1 In Range("A2", ActiveCell.End(xlDown))
            End If
    Next
End Sub

Klaus W