循环不会结束

Question

我无法结束代码中的循环。任何帮助将不胜感激。

    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