Удаление символа в ячейке

[Flangini]

Добрый день!!! и с праздниками (прошедшими) Вас

У меня есть такой вот макрос:

Sub De()
Dim i As Integer
Dim s As Range
ActiveSheet.Range("A1").Select
m1:
Set s = ActiveSheet.Range("A1:E3000").Find( What:="не ответили", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If s Is Nothing Then Exit Sub
i = s.Row
Rows((i) & ":" & (i)).Delete
GoTo m1
End Sub

он удаляет всю строку если в любой из ячеек диапазона есть "не ответили", на что нужно заменить строчку Rows((i) & ":" & (i)).Delete чтобы он удалял только слова "не ответили" и больше ни чего не трогал?

Зарание огромное Вам спасибо!!!

[SAS888]

То есть Вам нужно из всех ячеек указанного диапазона удалить фрагмент?
Тогда, например, так:

Sub De()
    
    ActiveSheet.Range("A1:E3000").Replace What:="не ответили", Replacement:="", SearchOrder:=xlByColumns
    
End Sub

[дмидми]

Sub De()
    Range("A1:E3000").Replace What:="не ответили" _
        , Replacement:="" _
        , LookAt:=xlPart, MatchCase:=False _
        , SearchFormat:=False, ReplaceFormat:=False
End Sub