Создание нового листа и.. - VB

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

Помогите,
надо создать новый лист в книге, название листа выбирает пользователь из списка - это месяца(можно просто из названия в ячейке с месяцем).
Сделать копию определенного диапазона из основного листа с расчетами и вставить в новый лист без формул, просто значения.
Спасибо за помощь.

Решение задачи: «Создание нового листа и..»

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

                            <font color="blue">Sub</font> My_Sub()
<font color="00AA00">'тыры-пыры</font>
<font color="blue">If</font> CheckIfSheetExists(<font color="teal">"Лист1"</font>) <font color="blue">Then</font>
    MsgBox <font color="teal">"Такой лист уже есть"</font>
<font color="blue">Else</font>
    MsgBox <font color="teal">"Такого листа нет"</font>
    <font color="00AA00">' продолжаем тут делать что нам надо</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="00AA00">'ляля-тополя</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Function</font> CheckIfSheetExists(strSheetName <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">Dim</font> shCurrSheet <font color="blue">As</font> Worksheet, bRetVal <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">For</font> <font color="blue">Each</font> shCurrSheet <font color="blue">In</font> ThisWorkbook.Sheets
    <font color="blue">If</font> shCurrSheet.<font color="blue">Name</font> = strSheetName <font color="blue">Then</font>
        bRetVal = True
        <font color="blue">Exit</font> <font color="blue">For</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> shCurrSheet
CheckIfSheetExists = bRetVal
<font color="blue">End</font> <font color="blue">Function</font>
                        