Я не понимаю, почему объект требуемая ошибка происходит каждый раз в VBA?

Question

Я работаю над проектом VBA, чтобы определить, является ли PE компании слишком высоким. Я относительно неопытен с vba, однако, я не могу найти ничего плохого в своем коде, почему Excel всегда возвращает мне ошибку требуемого объекта? Если кто-нибудь может мне помочь, спасибо!

Dim i As Long, pe As Long
Dim result As String

For i = 4 To 10
        pe = Sheet1.Range("C" & i).Value
        If pe >= 85 Then
            result = "High Destinction"
        ElseIf pe >= 75 Then
            result = "Destinction"
        ElseIf pe >= 55 Then
            result = "Credit"
        ElseIf pe >= 40 Then
            result = "Pass"
        Else
            result = "Fail"
        End If

        Sheet1.Range("D" & i).Value = result
Next

End Sub

Answer 1

Взгляните ниже:

См. Рабочий лист под кодовым именем:

Sheet1.Range("D" & i).Value = result

См. Рабочий лист с использованием имени рабочего листа:

ThisWorkbook.Worksheets("Sheet1").Range("D" & i).Value = result