Comparing two excel sheets data

This code will open two excel sheet and compare each sheet cell by cell, if any changes there in cells , it will highlight the cells in red color  in the first sheet.

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook1= objExcel.Workbooks.Open("D:\pavan\doc1.xls")
Set objWorkbook2= objExcel.Workbooks.Open("D:\pavan\doc2.xls")

Set objWorksheet1= objWorkbook1.Worksheets(1)

Set objWorksheet2= objWorkbook2.Worksheets(1)

  For Each cell In objWorksheet1.UsedRange
      If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
          cell.Interior.ColorIndex = 3 'Highlights in red color if any changes in cells
      Else
          cell.Interior.ColorIndex = 0
      End If
  Next

set objExcel=nothing



Regards,
Pavankumar Nandagiri..............