L oop не закончится

Question

У меня проблемы с окончанием al oop в моем коде. Любая помощь будет оценена.

    With Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("Description")
        .Orientation = xlPageField
        .Position = 1

        For i = 1 To .PivotItems.Count

            If Not (.PivotItems(i).Value = "Option 1" Or _
                    .PivotItems(i).Value = "Option 2" Or _
                    .PivotItems(i).Value = "Option 3") Then

                .PivotItems(i).Visible = False

            End If
        Next
    End With