Установка цвета заливки в 2010

[alex77755]

Что за глюк. Не могу уловить с чем связана ошибка 1004

Range(Cells(R, 1), Cells(R, 15)).Interior.Color = WB 'заливка установленным цветом

То 20 раз подряд срабатывает бз ошибки, а то начинает глючить.
Выключу ексел. Включу снова - работает.
Работа делается на активном листе. Пробовал указывать явно. Типа

Лист2.Range(лист2.Cells(R, 1), лист2.Cells(R, 15)).Interior.Color = WB

не помогает. Всё тк же периодически начинает отказываться выполнять. В 2003 это же код работает безошибочно

[IgorGO]

Виднеется одна причина - R. где-то он за пределами листа.

на всякий случай: WB объявлено как что?

[alex77755]

Dim WB' тип не указан значит вариант

 LR = Лист1.Cells(Rows.Count, 1).End(xlUp).Row 'определем количество записей
For R = 2 To LR 'по всем записям ошибку выдаёт как при 3 так и при 6 записях. Больше пока не было
Select Case Лист1.Cells(R, 15).Value

[alex77755]

На всякий случай: назначение цвета:

WB = RGB(146, 208, 80)
Range(Cells(R, 1), Cells(R, 15)).Select ' в зоне видимости.