Setting Target for Worksheet Change Event

[mrbickelsworth]

This piece of code keeps crashing Excel and I have no idea why:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long

Application.ScreenUpdating = False


For i = 2 To 35
    If Range("B" & i).Value = "CIP" Then
        Range("C" & i).ClearContents
    End If
Next i

Application.ScreenUpdating = True

End Sub

Your help would be greatly appreciated!