Помощь с макросом переименовывателем

[john22255]

Доброго дня! Подскажите пожалуйста, как зациклить этот код, скажем 50 раз?
И что вписать, чтобы при последующей итерации макрос копировал уже не значение ячейки А1 листа "список", а значение ячейки А2, А3 ...и т.д. Спасибо.

Код: (vb)

Sub rename
 
   Sheets("список").Select
   Range("A1").Select
   ActiveCell.FormulaR1C1 = "asdfd"
   Sheets("Лист2").Select
   Sheets("Лист2").Copy After:=Sheets(2)
   Sheets("Лист2 (2)").Select
   Sheets("Лист2 (2)").Name = "asdfd"
   Range("A4").Select
   ActiveCell.FormulaR1C1 = "asdfd"

[RAN]

Хочь 250.  ;D

Код: (vb)

Sub rename ()
For i = 1 to 250
Sheets("список").Range("A1")= "asdfd" ' и зачем???
Sheets("Лист2").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "asdfd" + i ' дублирование имен не допускается
Next
End Sub

[Юрий М]

Кросс на Планете