Quick question,

I need to create something to go along with or to replace the belo
lines. Basically, I am trying to right a code, that is going to loo
for a person's name, and in this instance it's "Franks, Jinx" and the
automatically delete every row from that point up to Row 7, s
basically it needs to delete everything from Row 8: Cells.Find...if yo
get my drift...any idea's??

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

Rows("7:159").Select
Range("A159").Activate
Selection.Delete Shift:=xlU

--
dok11
-----------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...fo&userid=1058
View this thread: http://www.excelforum.com/showthread.php?threadid=38013