Проблема с Range и MergeCells

[Brudda]

Привет!
Столкнулся со странной проблемой - не знаю как бороться, может подскажете чего?
В книге есть два листа на первом - кнопка, к которой привязан следующий код (точнее - его часть):

Код: Выделить всё

For Column = 1 To 36 Step 8
  For Row = 3 To 183 Step 18
    Sheets("Risk Profiles").Range(Cells(Row, Column), Cells(Row, Column + 7)).MergeCells = True
  Next Row
Next Column


Страница "Risk Profiles" - вторая.
При нажатии на кнопку вылетает обшика (Applicaion...).
Однако, если тот же самый код поместить на событие Workbook Open или просто макрос (не привязанный ни к чему), то он работает.
Может знает кто, как с этим бороться?
Заранее спасибо.
С почтением
Brudda

[Rombo]

дык у тебя на первой worksheet объект Cells вызывается.

либо добавь в начале строчку
Sheets("Risk Profiles").select
(если лист видимый)


либо пиши перед каждым Cells
Sheets("Risk Profiles").

либо используй конструкцию
with Sheets("Risk Profiles")
......
end with

[Brudda]

Мда...
Rombo, ты, похоже, прав.
Плохо жить с фанерной головой пойду пробовать.
Спасибо.
С почтением,
Brudda

[Rombo]

интересный способ.