Search And Compare Cell Values In Different Spreadsheets

I have two worksheets with products that I need to compare.

Each product has a code and a product name in the following format:
Column A has the product code and column D the product name,for
example:

ColumnA:
AM1BL15X

ColumnD:
AGLO MEL BLANCO 1C 15MM 215X244

Both sheets *should* have the same data in them but there are 4000
products that need to have their description verified.So I need to go
down each row on Sheet1 , extract the product code from
Sheet1.ColumnA and the product name from Sheet1.ColumnD. Then do a
search on Sheet2 for the product code (Sheet2.ColumnA) and verify that
the product description on sheet2 (Sheet2.ColumnD) is the same as in
Sheet1.ColumnD. If it matches,everything is OK. If not there is
something wrong. So I´m thinking that maybe the product codes that
dont have matching descriptions could be entered in to a separate
worksheet so that someone can check it later.

I´ve been reading around and found these code samples from this site
[url]:


Dim rng1 as Range, i as Long
Dim cell as Range
With worksheet("Sheet1")
set rng1 = .Range(.Cells(1,1),.Cells(1,1).End(xldown))
End With

i = 0
for each cell in rng1

if cell.Value worksheets("Sheet2") .Range("A1").Offset(i,0).Value
Then
' do what - they don't match
else
' do what - they match
End if
i = i + 1
Next

I´ve been trying to make some changes but I dont quite know how to get this working to do what I want and I only get errors.