Search For Cell Value In A Column

I'm using the following code to open a target document and find a cell in this document in column A which has the same value as an another cell in the target document:


Sub findme()

Dim idn As Range

Set idn = Range("CZ2")

Workbooks.Open Filename:="c: argetfile.xls"

Sheets("Sheet1").Select

Columns("A:A").Select


Selection.Find(What:="idn", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

End Sub

Can any one tell me why the result of this search ends up with cell A2 which is empty, although the CZ2 cell has an another value, which can be found in column A.