I wrote a macro that takes the text in the active cell
and plugs it into the Excel search thingy. Here's the code:

AAAA = ActiveCell.Text

Sheets("LIST").Select
Range("A1").Select
Cells.Find(What:=AAAA, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate

BUT IT DOESN'T WORK. Please!! - HELP!
Paul