search for a string

[santana]

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

 

[ozgrid.com]

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