Hello Mike H, :)

Please use a range type variable instead of EmpNoRow. It make
trappling easy.
When the value is found, a variable rngFound has the range, if th
value is not found a variable rngFound has Nothing.


Code
-------------------

Dim rngFound As Range
Set rngFound = EmpNoSheet.Columns("C:C").Find(What:=InDataSheet.C ells(InDataRow, 3))

If rngFound Is Nothing Then
'NOT FOUND
GoTo ErrorTrap ' As you like
Else
'FOUND
EmpNoRow = rngFound.Row
End If

-------------------


--
Message posted from http://www.ExcelForum.com