just write

Code:
If wks.Name <> "Sheet1" And ((wks.Cells(5, 3).Value = rng.Cells(lng).Value) OR (wks.Cells(5, 2).Value = rng.Cells(lng).Value)) Then