VBA выдает ошибку 13 «Тип несоответствия» диапазон типов данных

Question

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

Sub ContractDates()

    Dim StatusValue As Range
    Dim QuotationOpen As Range
    Dim DateWriter As Range
    Dim x As Long
    Dim rFind As Range

    lastrow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

    For x = 2 To lastrow
        Set StatusValue = Cells(x, 4)
        For Each c In StatusValue
            If StatusValue = "DESIGN" Then
                Set QuotationOpen = Cells(x, 3)
                For Each v In QuotationOpen
                    If QuotationOpen = "Q3ING18" Then
                        Set DateWriter = Cells(x, 7)
                        Let DateWriter = "28/09/2018"
                    End If
                Next
            End If
        Next
    Next

End Sub

И это дает мне ошибку в строке, которая говорит

If QuotationOpen = "Q3ING18" Then

Но не в строке с надписью

If StatusValue= "DESIGN" Then

Даже если они оба «диапазона», и я не могу понять, почему