Compare 2 Cols and Highlight if >NOT< Found

[ChrisOK]

In one workbook, need to do a simple VBA match like this:
Compare Col B (starting with row 8) of the PARTS tab to Col P (starting w/ row 5) of the MATERIALS tab.
If match is found, do nothing, (continue to next row)... if NO MATCH is found, then highlight/fill the cell in COL P of the MATERIALS tab with red.

Continue until every item on the PARTS tab column B has been compared.

 

[JLGWhiz]

Sub notFound()
Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long, rng As Range, c As Range
Set sh1 = Sheets("PARTS")
Set sh2 = Sheets("MATERIALS")
lr = sh2.Cells(Rows.Count, "P").End(xlUp).Row
Set rng = sh2.Range("P5:P" & lr)
    For Each c In rng
        If Application.CountIf(sh1.Range("B8", sh2.Cells(Rows.Count, "B"). _
        End(xlUp)), c.Value) = 0 Then
            c.Interior.ColorIndex = 3
        End If
    Next
End Sub

 

[ChrisOK]

for some reason, I keep getting a Run-time error 1004: Method Range' of object_Worksheet failed' error and this portion of code is highlighted:

        If Application.CountIf(sh1.Range("B8", sh2.Cells(Rows.Count, "B"). _
        End(xlUp)), c.Value) = 0 Then

any ideas?

 

[JLGWhiz]

for some reason, I keep getting a Run-time error 1004: Method Range' of object_Worksheet failed' error and this portion of code is highlighted:

        If Application.CountIf(sh1.Range("B8", sh2.Cells(Rows.Count, "B"). _
        End(xlUp)), c.Value) = 0 Then

any ideas?

Typo on my part, should be:

If Application.CountIf(sh1.Range("B8", [COLOR=#ff0000]sh1[/COLOR].Cells(Rows.Count, "B"). _
        End(xlUp)), c.Value) = 0 Then