Копирование, вставка, скрытие листа xl2003 - VB

Формулировка задачи:

Здравствуйте, доброго дня всем кто на форуме, вопрос такого характера: пример приложил, думаю будет понятно из примера,(хотя мне трудно пояснить задачу) но поясню, хотелось бы вставить данные в ячейку, на копию листа, который будет переименовыватся, незнаю как кодом задать имя следующего листа если я его не знаю, я так понимаю просто имя листа задать как активный?

Решение задачи: «Копирование, вставка, скрытие листа xl2003»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
  Xl.Worksheets("Лист1").Copy Before:=Xl.Worksheets(1) 'кпируем лист
  With Xl.Worksheets("Лист1 (2)")
  .Name = Date 'задаем имя листу
   .Visible = False 'скрываем лист
  .Range("A1").Value = Text1.Text 'этим кодом хотелось бы записать данный в активный лист
  End With
End Sub
                        