On Error Resume Next
iRow = Application.Match(Range("A3").Value,Range("C3:C35" ),0)
On Error Goto 0
If iRow < 0 Then
Cells(2+iRow,"D").Copy Range("F3")
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pete" wrote in message
...
I have a need to lookup the value of cell A3 and compare it to a list in
cell
C3:C55. If the value of cell a3 is found I want to activate the the cell
within colum C and offset the active cell by 1 colum (D) and copy that new
cell and past the answer in cell F3.

I know XL can do this, but I might be making harder than it has to be.
Any suggestions.
--
Pete