Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
What I cannot manage to do is amend the code so that it continues searching for the same text string until it reaches the end of the data.
Cells.Find(What:="Bad Piece", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(0,1).Delete
Join the community of 500,000 technology professionals and ask your questions.