Создать листи с именами предыдущих листов

[Richard123]

Добрый день!

Вопрос, как в VBA решить следующую задачу:
Есть листы их кол-во неопределено и содеражние не важно.
Нужно создать новые листы (их кол-во равно имеющимся листам), где именем каждого нового листа будет "T_Лист1", где "Лист1" - любое имя имеющегося листа, а "Т_" - добавление для имени ново листа.
Эту нужно сделать для всех листов в книге.

Помогите пожалуйста!)

[motorway]

Используйте цикл по Worksheets(i) и свойство Name. Макрос создания листа можете записать и вставить код

[VictorM]

Так можно, проверяйте

Sub tt()
    ShCount = Sheets.Count
    For i = 1 To ShCount
        IName = Sheets(i).Name
        Worksheets.Add.Name = "Т_" & IName
        Sheets("Т_" & IName).Move After:=Sheets(Sheets.Count)
    Next i
End Sub

[Richard123]

Спасибо!) А подскажите пожалуйста, в чем разница между обычным NEXT и Next i?

[VictorM]

В данном, конкретном примере - ничем.
i - переменная, определяющая число повторений цикла.
Next - ключевое слово, при достижении которого значение счётчика изменяется на величину шага, после чего управление опять переходит в начало цикла.
Поскольку в данном примере только одна управляющая инструкция For Next, i можно опустить. А вот если будет несколько таких конструкций, да еще вложенных одна в одну указание переменной в конце next обязательно.
Но я так привык, всегда указываю переменную.
да Вы попробуйте сами))
Все прояснится.

[Richard123]

Вникаю, вникаю) Всем большое спасибо за знания))