Delete Rows With Specific Text

[Sean]

I want to run a macro that will search through rows 1 to 1000, and will
delete a section of rows when it finds the following

Look for in column "A" the word "FURN" when it is located it will delete
that row along with three rows beneath it and one row above it. It will stop
at row 1000.

Any suggestions?

Thanks

Sean

 

[Ron de Bruin]

Hi Sean

You can test this on a copy of your workbook

Sub FindExample1()
Dim str As String
Dim Rng As Range
Dim I As Long

Application.ScreenUpdating = False
str = "FURN"

Do
Set Rng = Range("A:A").Find(What:=str, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Rng.Offset(-1, 0).Resize(5).EntireRow.Delete
Loop While Not (Rng Is Nothing)

Application.ScreenUpdating = True
End Sub