Its missing a right paren after 2,2

Set Rng = .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))

should fix it.

--
Regards,
Tom Ogilvy

"Joe" wrote in message
...
I receieved a syntax error for the line

set rng = .Range(.Cells(2,2,.Cells(rows.count,2).End(xlup))

Joe

"Tom Ogilvy" wrote:

Dim rng as Range
Dim rng1 as Range
Dim cell as Range
Dim res as Variant

With worksheets(1)
set rng = .Range(.Cells(2,2,.Cells(rows.count,2).End(xlup))
End With
set rng1 = Worksheets(2).Range("A2:A500")
for each cell in rng
res = Application.Match(cell,rng1,0)
if not iserror(res) then
cell.offset(0,18).Value = rng1(res).offset(0,2).Value
end if
Next

--
Regards,
Tom Ogilvy

"Joe" wrote in message
...
Using VB code, I need to be able use a lookup feature to accomplish
the
following:

Row 1 is for headers. Starting at Row 2 I need to fill Column 20 based
on
the text contained in contained in column 2. Column 2 must be
compared to
Column 1 on sheet 2 with a Range (A2:C500). When an exact match is
found
then the text in column 3 of sheet 2 needs to be returned to column 20
of
sheet 1.

Thank you. Joe