我有一个功能，我试图创建，基本上清除下拉选择，如果上一个单元格中的下拉列表更改。 我需要重复多行。 目前它说我的变量没有定义

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 17 To 1015
If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("D" & i)) Is Nothing Then
    Range("E" & i).ClearContents
End If


End Sub