Спасибо Igor, вопрос в следующем друзья, мне необходимо найти договора в ячейке в Worksheets("Лист2").Cells(i, 5) написанных через разделитель точка с запятой "122-33;123-542;52-333", искомое значение Worksheets("Лист1").Cells(j, 1), ("52-333") . Цикл должен был пройтись по Листу 2 и сравнить с искомым в Лист1, но что то не так пошло. Прошу подсказать, возможно есть другие варианты решения задачи.
InStr(1, "122-33;123-542;52-333", "52-333", vbBinaryCompare) > 0 Then
InStr(1, "122-33;123-542;52-333", "52-333", vbBinaryCompare) > 0 Then