In the VBA event below I am getting an error onthe following: If Not wsQuotes.Cells(cell.row, 5).Value = wsRequest.Cells(Target.row, "E").Value _
And Not wsQuotes.Cells(cell.row, 6).Value = wsRequest.Cells(Target.row, "F").Value Then

Sub SearchSubmittedQuotes(Target As Range)

    Dim wsRequest As Worksheet
    Dim wsQuotes As Worksheet
    Dim cell As Range
    Dim searchValue As Variant
    Dim nextBlankRow As Long
    
    Application.EnableEvents = False
    Set wsRequest = ThisWorkbook.Sheets("PREQUEST")
    Set wsQuotes = ThisWorkbook.Sheets("QUOTES")
    
    wsQuotes.Unprotect Password:="edit"
    searchValue = Target.Offset(0, -7).Value
    For Each cell In wsQuotes.Range("A5:A" & wsQuotes.Cells(wsQuotes.Rows.count, "A").End(xlUp).row)
        If wsQuotes.Cells(cell.row, 1).Value = searchValue Then
            If wsQuotes.Cells(cell.row, 5).Value = wsRequest.Cells(Target.row, "E").Value _
                And wsQuotes.Cells(cell.row, 6).Value = wsRequest.Cells(Target.row, "F").Value Then
                ThisWorkbook.Sheets("QUOTES").Unprotect Password:="edit"
                wsQuotes.Cells(cell.row, 8).Value = wsRequest.Cells(Target.row, "H").Value ' NOTES
                wsQuotes.Cells(cell.row, 9).Value = wsRequest.Cells(Target.row, "I").Value ' P REQUEST#
                wsQuotes.Cells(cell.row, 10).Value = wsRequest.Cells(Target.row, "J").Value ' DATE
                wsQuotes.Cells(cell.row, 13).Value = "Finance"
                ThisWorkbook.Sheets("QUOTES").Protect Password:="edit"
            End If
        End If
    Next cell
    
    ' Check if both conditions are false
    If Not wsQuotes.Cells(cell.row, 5).Value = wsRequest.Cells(Target.row, "E").Value _
        And Not wsQuotes.Cells(cell.row, 6).Value = wsRequest.Cells(Target.row, "F").Value Then
        ' Display message
        MsgBox "NO QUOTE ENTRY FOUND" & vbCrLf & "New Entry Will Be Recorded", vbInformation, "NO QUOTE ENTRY"
        
        ' Find the next blank cell in column A
        nextBlankRow = wsQuotes.Cells(wsQuotes.Rows.count, "A").End(xlUp).row + 1
        ThisWorkbook.Sheets("QUOTES").Unprotect Password:="edit"
        wsQuotes.Cells(nextBlankRow, 1).Value = wsRequest.Cells(Target.row, "A").Value ' CONTRACTOR
        wsQuotes.Cells(nextBlankRow, 2).Value = wsRequest.Cells(Target.row, "B").Value ' JOB
        wsQuotes.Cells(nextBlankRow, 3).Value = wsRequest.Cells(Target.row, "C").Value ' SECTOR
        wsQuotes.Cells(nextBlankRow, 4).Value = wsRequest.Cells(Target.row, "D").Value ' SUBSECTOR
        wsQuotes.Cells(nextBlankRow, 5).Value = wsRequest.Cells(Target.row, "E").Value ' QUO/INV#
        wsQuotes.Cells(nextBlankRow, 6).Value = wsRequest.Cells(Target.row, "F").Value ' VALUE
        wsQuotes.Cells(nextBlankRow, 7).Value = wsRequest.Cells(Target.row, "G").Value ' LOCATION
        wsQuotes.Cells(nextBlankRow, 8).Value = wsRequest.Cells(Target.row, "H").Value ' NOTES
        wsQuotes.Cells(nextBlankRow, 9).Value = wsRequest.Cells(Target.row, "I").Value ' P REQUEST#
        wsQuotes.Cells(nextBlankRow, 10).Value = wsRequest.Cells(Target.row, "J").Value ' DATE
        wsQuotes.Cells(nextBlankRow, 13).Value = "Finance"
        ThisWorkbook.Sheets("QUOTES").Protect Password:="edit"
    End If

    Target.AddComment "Quote sent to Finance " & Date
    wsQuotes.Protect Password:="edit"
    Application.Wait Now + TimeValue("00:00:01")
    ProcessQuote Target

End Sub