Ошибка использования метода диапазона в VBA Excel (настройка параметров)

Question

Я объявил переменную ColorCell и использовал Set, чтобы сделать некоторые изменения цвета, используя цикл For.

Но при кодировании возникает ошибка, и я не могу интерпретировать объяснение отладки.

Sub 계산()    
    Dim SumVariable As Integer
    Dim i As Integer
    Dim ColorCell As Range
    Set ColorCell = Range("D" & i)

    For i = 3 To Range("D14").End(xlUp).Row
        If Cells(i, "D") > 300 Then
            MsgBox ("haha!")

            Cells(i, "D").Value = 10
            Range("D4").CurrentRegion.Select
            ColorCell.Interior.Color = vbYellow                
        End If
    Next i    
End Sub