Строки Excel VBA для удаления на основе значения ячейки, содержащего часть текста

Я хочу удалить строки на основе значения ячейки, которое содержит слова «обновление» или «обновление» внутри ячейки. когда это слово присутствует, это не единственные слова внутри ячейки.

Вот часть моего кода, которая ничего не удаляет:

Sub DeleteValues() Dim i As Integer Dim MFG_wb As Workbook Dim Dep As Integer Set MFG_wb = Workbooks.Open _ ("C:\Users\rosipov\Desktop\eliran\MFG - GSS\MFG Daily\Fast Daily " & Format(Now(), "ddmmyy") & ".xlsx", _ UpdateLinks:=False, IgnoreReadOnlyRecommended:=True) MFG_wb.Sheets("Aleris").Activate Dep = MFG_wb.Sheets("Aleris").Range("B2").End(xlDown).Row For i = Dep To 2 Step -1 Cells(i, 2).Select If Not (Selection.Value = "& upg &" Or Selection.Value = "*& upgrade &*") Then Rows(i).Delete End If Next i End Sub 

Вот проблема:

 For i = Dep To 2 Step -1 Cells(i, 2).Select If Not (Selection.Value = "& upg &" Or Selection.Value = "*& upgrade &*") Then Rows(i).Delete End If Next i 

Используйте INSTR ():

 For i = Dep To 2 Step -1 If Instr(MFG_wb.Sheets("Aleris").Cells(i, 2).Value,"upg")>0 Or Instr(MFG_wb.Sheets("Aleris").Cells(i, 2).Value,"upgrade") >0 Then MFG_wb.Sheets("Aleris").Rows(i).Delete End If Next i 
Давайте будем гением компьютера.