Option Explicit

Public Sub tmpSO()

Dim cell As Range

For Each cell In Sheet1.Range("A1:B10")
If cell.Value2 <> Sheet2.Cells(cell.Row, cell.Column).Value2 Then
    cell.Interior.Color = vbRed
End If
Next cell

End Sub