Search in Excel specific word, delete all rows who does not have that word

[SamT]

Rough algorithm:

arrCol = ColumnRange.Value
for j = Ubound(arrCol) to LBound(arrCol)
   arrCel = Split(arrCol(j, 1), ";")
   Bool = False
   for i = Lbound(arrCel) to Ubound(arrCel)
      If arrCel(i) = Response Then 
         Bool = True
         Exit For
      End If
   Next i
'For Testing:
   If Not Bool Then Rows(j + StartRowNum - 1).Interior.ColorIndex = 3
'For Production
'   If Not Bool Then Rows(j + StartRowNum - 1).Delete
Next j