sh1 = "должн.(кол.во,сумма).xls"
sh2 = "Таблица сотрудн.-точки.xls"

For i = 3 To 87
For j = 6 To 20
s1 = LCase(Workbooks(sh1).Worksheets("кем").Cells(i, 1))
s2 = LCase(Workbooks(sh2).Worksheets("товар").Cells(j, 1))
If s1 = s2 And s1 <> "" Then
k = 3
While k <= 12
For m = 41 To 77
Workbooks(sh1).Worksheets("кем").Cells(i + 4, k) = Workbooks(sh2).Worksheets("товар").Cells(j, m)
k = k + 1
m = m + 3
Next m
Wend
End If
Next j
i = i + 5
Next i


s2 = LCase(Workbooks(sh2).Worksheets("товар").Cells(j, 1))
Вот в этом месте происходит ошибка: subscript out of range
Подскажите что не так делаю

KL (XL) fantomms2 = LCase(Workbooks(sh2).Worksheets("товар").Cells(j, 1))
Вот в этом месте происходит ошибка: subscript out of range


одно из трех:

1) "Таблица сотрудн.-точки.xls" - неверное название

2) книга "Таблица сотрудн.-точки.xls" не открыта

3) в книге "Таблица сотрудн.-точки.xls" нет листа "товар" или имя отображено неверно

KL
[MVP - Microsoft Excel]

все проверяли, все верно. что еще может быть?