Копирование листа и присвоение иму нового имени

[K.Sergey]

Подскажите, кто знает, как скопировать лист и назначить ему имя. Нужно чтобы один лист был эталонным (скрытым) и он копировался по команде пользователя.

Была идея сделать следующим образом:

Dim MySh As Worksheet
Set MySh = Sheets("Template").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
MySh.Name = InputBox("Inter sheet name:")

Не работает , ругается на второй строке.

[alibek]

.Copy не возвращает объекта.

Я делаю так:
Sheets("Template").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Set MySh = Sheets(ThisWorkbook.Sheets.Count)

[K.Sergey]

Спасибо за наводку.
Но в моем случае это не сработало. Действительно, если копируемый лист не скрыт (или если нет скрытых листов; я еще не разобрался) - данный метод решает задачу. Но у меня он переименовывает постоянно один лист и добавляет копии "Template(N)", где N - номер копии. Не помогает даже перед копированием назначение этому листу Visible = true.

[GSerg]

Тогда имеет смысл перед копированием запомнить в коллекцию все имеющиеся листы, а после копирования найти тот лист, которого в коллекции нет...

[K.Sergey]

Тогда имеет смысл перед копированием запомнить в коллекцию все имеющиеся листы, а после копирования найти тот лист, которого в коллекции нет...

Так и сделаю!
Всем спасибо за помощь!