Can someone guide me to proper code???

This gives me #NAME?

Dim Cr1 As Date, Cr2 As String, Cr3 As String
Dim RngP1 As Range, RngP2 As Range, RngP3 As Range

eRowP = Worksheets("Production Log").Cells(Rows.Count, 1).End(xlUp).Row
Set RngP1 = Range(Cells(5, 8), Cells(eRowP, 8))
Set RngP2 = Range(Cells(5, 10), Cells(eRowP, 10))
Set RngP3 = Range(Cells(5, 11), Cells(eRowP, 11))

Cr1 = Range("C11").Value
Cr2 = Range("E9").Value
Cr3 = Range("E8").Value

Cells(R, C).Value = Evaluate("SUMPRODUCT(--(" & RngP1.Address & "=" & Cr1 &
"), --(" & RngP2.Address & "=" & Cr2 & "), --(" & RngP3.Address & "=" & Cr3 &
"))")

Thanks a ton
--
Baapi