Как заменить макросом N-ые строчки?

[KomanenkOFF]

Здравствуйте, необходима помощь, не могли бы Вы написать небольшой макрос для Excel, который заменял бы строчку на = "++++" c шагом 100 строчек, буду весьма признателен. Большое спасибо.

[Казанский]

Sub bb()
Dim i&
For i = 1 To ActiveSheet.UsedRange.Rows.Count Step 100
    Cells(i, 1) = "++++"
Next
End Sub

[KomanenkOFF]

Все получилось, большое спасибо. Следующее задание уже платное, если есть желание взяться, Казанский напишите пожалуйста свои контактные данные, желательно ICQ, там все и оговорим.