1. Есть ПРАЙС лист поставщика (5425 строк). - находится на Sheet2
Состоит из колонок -
КОД НАЗВАНИЕ ПРОИЗВОДИТЕЛЬ ЦЕН НАЛОГ
2. Есть список кодов тех товаров, которые есть в прайсе, но нету в системе(2687 строк) - находится на Sheet1

Хочу цветом выделить те позиции в ПРАЙСЕ код, которых указан в списке невведёных товаров.

Sub not_update_raznica()
Application.ScreenUpdating = False
Dim Check, i, j
i = 0
j = 0
Do ' VNESHNIY po neudachnim kodam
i = i + 1
Check = False
Do While j < 5426 And Check = False ' VNUTRENNIY po PRICE'u postavchika
j = j + 1 'nomer stroki v PRICE'e postavchika
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then
Check = True
Worksheets("Sheet2").Cells(j, A).Font.Color = Red
Exit Do ' Vihozhu iz VNUTRENNEGO cikla
End If
Loop
Loop Until i > 2687 ' VIHOZHU iz vneshnego cikla
Application.ScreenUpdating = True
End Sub


В результате сообщени об ошибке - Runtime error 9 Subscript out of range
При нажатии на debug - выделяет строку -
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then

Помогите кому не лень, пожалуйста. Заранее спасибо всем откликнувшимся.