Простой вопрос не для чайников, но сложный для меня - VB

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

Простой вопрос не для чайников, но сложный для меня
Задача такая:
Средствами vba в Excel необходимо создать копию листа «Лист1», с именем введенным пользователем и что бы имя этого листа отображалось (помимо того, где ему положено) еще и в этом же листе в ячейке, например «А1»
Кому не в лом, помогите.
Спасибо

Решение задачи: «Простой вопрос не для чайников, но сложный для меня»

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

                            Dim x <font color="blue">As</font> Object 
<br>Dim s <font color="blue">As</font> String 
<br>s = InputBox(<b><font color="green">"Введите имя листа"</font></b>, <b><font color="green">"Вод имени листа"</font></b>, <b><font color="green">"") 
<br><font color="blue">If</font> s = "</font></b><b><font color="green">" Then 
<br>  MsgBox "</font></b>Вы не ввели имя листа!<b><font color="green">" 
<br><font color="blue">Else</font> 
<br>  <font color="blue">If</font> VarType(Sheets(s)) = vbObject Then
<br>    MsgBox "</font></b>Такое имя уже есть!<b><font color="green">"      
<br>  <font color="blue">Else</font>
<br>    Sheets("</font></b>Шаблон<b><font color="green">").<font color="blue">Select</font> 
<br>    Cells.<font color="blue">Select</font> 
<br>    Selection.Copy 
<br>    <font color="blue">Set</font> x = Sheets.Add 
<br>    x.Name = s 
<br>    Sheets(s).<font color="blue">Select</font> 
<br>    ActiveSheet.Paste 
<br>    Rows("</font></b><b><font color="darkblue">1</font></b>:<b><font color="darkblue">1</font></b><b><font color="green">").<font color="blue">Select</font> 
<br>    Range("</font></b>A1").<font color="blue">Select</font> 
<br>    ActiveCell.FormulaR1C1 = s 
<br>  <font color="blue">End</font> <font color="blue">If</font>
<br><font color="blue">End</font> <font color="blue">If</font>
                        