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