Объединение ячеек на другом листе, координаты которой задаются

[Ешь]

Всем привет! Возникла следующая проблема. У меня в книге 3 листа, мне нужно написать макрос, который при нажатии на кнопку (находится на 1 листе) объединял бы ячейки на 2 и 3 листах. Причем координаты этих ячеек зависят от формулы, т.е. я их должен задавать цифрами. При написании следующего кода, выдает ошибку
Sub er()
n = 3
for i =2 to n
Worksheets(i).Range(Cells(1, 1), Cells(2, i+5)).Merge

End Sub

Ещё одна странность. Если выполнить тот же макрос в том листе, в котором объединяешь (например в первом), то он его выполняет без проблем.Вот к примеру


n = 3
for i =2 to n
Worksheets(1).Range(Cells(1, 1), Cells(2, i+5)).Merge


Как быть, подскажите плиз!

[IgorGO]

можно быть так:

Worksheets(i).Range(Worksheets(i).Cells(1, 1), Worksheets(i).Cells(2, i+5)).Merge

или так:

with Worksheets(i)
  .Range(.Cells(1, 1), .Cells(2, i+5)).Merge
end with

[Ешь]

Спасибо большое! Помогло)