dim trazi as string
dim nasao as string

With Application.WorksheetFunction
   'prvo cemo provijeriti sa MATCH dali je ta celija prazna
   'ako je prazna doslo bi do greske
  nasao = .Match(trazi, Sheets("List1").Range("A:A"), 0)
  If Not IsError(nasao) Then 'ako nadena celija nije prazna onda 
     nasao = .Index(Sheets("List1").Range("B:B"), _
             .Match(trazi), Sheets("List1").Range("A:A"), 0), 1)
  End If
End With