Try;
Sub DoIt()
Dim rRange As Range
On Error Resume Next
Set rRange = Range(Cells(1, 1). _
Cells.Find("Draft Documents", _
Cells(1, 1), xlFormulas, _
xlWhole, xlByRows, xlNext, False))
On Error GoTo 0
If Not rRange Is Nothing Then
rRange.EntireRow.Delete
Else
MsgBox "'Draft Documents' Not found"
End If
Set rRange = Cells.Find("*", _
Cells(1, 1), xlFormulas, _
xlPart, xlByRows, xlPrevious, False)
rRange.Offset(-2, 0).Range("A1:A2").EntireRow.Delete
End Sub
--
Regards
Dave Hawley
www.ozgrid.com
"santana" wrote in message
...
How can I search for a string (“Draft Documents”) in sheet1 and then
delete
all the rows above the row containing the string and then delete the last
two
rows in sheet1? Thank you