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" <[email protected]> wrote
in message news:[email protected]...
>
> 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
>