Maybe something like:

Option Explicit
Sub testme()

Dim FoundCell As Range

With Worksheets("sheet1")
With .UsedRange
Set FoundCell = Cells.Find(What:="Franks, Jinx", _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)

End With

If FoundCell Is Nothing Then
MsgBox "Not found"
Else
If FoundCell.Row 7 Then
.Range("7:" & FoundCell.Row).EntireRow.Delete
End If
End If
End With


End Sub


dok112 wrote:

Quick question,

I need to create something to go along with or to replace the below
lines. Basically, I am trying to right a code, that is going to look
for a person's name, and in this instance it's "Franks, Jinx" and then
automatically delete every row from that point up to Row 7, so
basically it needs to delete everything from Row 8: Cells.Find...if you
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:=xlUp

--
dok112
------------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...o&userid=10581
View this thread: http://www.excelforum.com/showthread...hreadid=380137

--

Dave Peterson