Найти и выделить строки (исправить)

[ddiimm]

Здравствуйте всем. Нашел здесь макрос который находит и выделяет строки в которых в столбце "С" найдутся совпадения со списком на листе2.

Нужно чтоб выделял строки в которых в столбце "B" нет совпадений со списком в листе2.
Всем спасибо.

[R Dmitry]

Сообщение от ddiimm

Здравствуйте всем. Нашел здесь макрос который находит и выделяет строки в которых в столбце "С" найдутся совпадения со списком на листе2.

Нужно чтоб выделял строки в которых в столбце "B" нет совпадений со списком в листе2.
Всем спасибо.

If InStr(1, arr2str, ce.Value, vbTextCompare) > 0 Then

добавить Not

If Not InStr(1, arr2str, ce.Value, vbTextCompare) > 0 Then

и здесь еще поменять

Set range1 = Worksheets("Лист1").Range(Worksheets("Лист1").Cells(1, 3), Worksheets("Лист1").Cells(1, 3).End(xlDown))

на

Set range1 = Worksheets("Лист1").Range(Worksheets("Лист1").Cells(1, 2), Worksheets("Лист1").Cells(1, 2).End(xlDown))

[ddiimm]

Спасибо болшое