Compare two excel files

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook1= objExcel.Workbooks.Open("E:\gcreddy1.xls")

Set objWorkbook2= objExcel.Workbooks.Open("E:\gcreddy2.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

msgbox "value is different"

Else

msgbox "value is same"

End If

Next

objWorkbook1.close

objWorkbook2.close

objExcel.quit

set objExcel=nothing