Compare two worksheets and highlight the one sheet’s difference from the other one

Does anyone know how to do this? Thank you for your great help!

for each cell in Activesheet.usedRange
if cell.Value <> Worksheets("Sheet2").Range(cell.Address) then
cell.Interior.ColorIndex = 3
end if
Next

--
Regards,
Tom Ogilvy

"minrufeng" <minrufeng.23r6t1_1140817502.6702@excelforum-nospam.com> wrote
in message news:minrufeng.23r6t1_1140817502.6702@excelforum-nospam.com...
>
> Does anyone know how to do this? Thank you for your great help!
>
>
> --
> minrufeng
> ------------------------------------------------------------------------
> minrufeng's Profile:
http://www.excelforum.com/member.php...o&userid=26208
> View this thread: http://www.excelforum.com/showthread...hreadid=516364
>