Stuck comparing 2 columns from 2 worksheets

Maybe:

    For Each x In Selection
        For Each y In CompareRange
            If x.Value <> y.Value Then x.Offset(0, 3).Value = x.Value
            Exit For
        Next y
    Next x