Макрос, дописать текст в диапазоне ячеек по столбцу!

[mostApi]

Добрый день!
Как сделать, чтоб циклом изменялся диапазон значений в ячейках, но не заменялся - а дописывался?

Dim iCells As Range
For Each iCells In Range("A54:A1010")
   iCells = (ActiveCell.FormulaR1C1 & "-ЯЯЯ")
Next iCells

- этот код заменяет...

[EducatedFool]

Dim cell As Range
For Each cell In Range("A54:A1010")
   cell = cell & "-ЯЯЯ"
Next cell

[Казанский]

Без цикла

[A54:A1010]=evaluate("A54:A1010&""-ЯЯЯ""")

[mostApi]

Все работает! Спасибо!
Попутный вопрос: добавил форму, в ней 3 texbox и кнопка, как в моем случае с нее задавать диапазон где править и что вставлять?
П.С. Есть возможность не создавая тему для таких "чайников" как я, а просто продолжать уже созданную кем-то похожую по смыслу тему? Не закрывая ее? Чтоб не плодить темы с простыми вопросами?

[Казанский]

Для выбора диапазона можно использовать элемент управления RefEdit (правый клик на Toolbox - Additional controls - RefEdit.Ctrl). Значение RefEdit - адрес диапазона (текст), для получения объекта-диапазона используйте Range(RefEdit1).