Sub RunMe() Dim mFind As Range Sheets("Sheet1").Select For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Set mFind = Sheets("Sheet2").Columns("A").Find(cell.Value) If Not mFind Is Nothing Then cell.Interior.TintAndShade = -0.149998474074526 End If Next cell End Sub
DON'T MISS