You could record a macro when you do it manually. It'll be very close to what
you want.

Or...
Option Explicit
Sub testme02()

Dim FoundCell As Range

Do

With Worksheets("Sheet1").Range("g1").EntireColumn
Set FoundCell = .Cells.Find(What:="composite", _
After:=.Cells(1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With

If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
Loop

End Sub




Abilio wrote:

It would have to be a macro procedure.

"Abilio" wrote:

Would anybody have a macro procedure to find a specific word such as "Composite" in
a column and delete the respective rows where the string were found.

I appreciate the help!

Thank you,

Abilio Andries

--

Dave Peterson