How do I get this:
Cells.Find(What:="bilbobaggins", After:=ActiveCell
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows
SearchDirection:=xlNext, _
MatchCase:=False).Activate
To select all matching cells at the same time

--
rbmccle
-----------------------------------------------------------------------
rbmcclen's Profile: http://www.excelforum.com/member.php...fo&userid=3636
View this thread: http://www.excelforum.com/showthread.php?threadid=56159