Создание рабочей книги с одним листом - VB

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

Народ, доброго всем времени суток .... столкнулся с такой проблемкой
писал прогу для обработи календарных планов в 03 Excel_е все отлично работало
я создавал книгу и там абсолютно спокойно создавался один лист и делались все расчеты ...
потом скинул шефу, у него стоит xp Excel .... и вылез косяк что когда он создает новую книгу - он автоматически создает 3 листа .... :( и потом все расчеты соответственно ... нафиг...
как это поправить?
новую книгу создаю так:

wbNew = Application.Workbooks.Add
wbNew.Sheets(). = 
nameOut = Application.GetSaveAsFilename()

заранее спасибо

Решение задачи: «Создание рабочей книги с одним листом»

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

                            Application.SheetsInNewWorkbook = <font color="darkblue"><b>1</b></font>
<font color="blue">Set</font> wbNew = Application.Workbooks.Add
wbNew.Sheets(<font color="darkblue"><b>1</b></font>).<font color="blue">name</font> = <font color="teal">"Итоговые данные"</font>
wbNew.WorkSheets(<font color="teal">"Лист 2"</font>).Delete
wbNew.WorkSheets(<font color="teal">"Лист 3"</font>).Delete
nameOut = Application.GetSaveAsFilename(<font color="teal">"Выполнение по месяцам.xls"</font>)

<font color="blue">For</font> i = LBound(arMonth, <font color="darkblue"><b>1</b></font>) <font color="blue">To</font> UBound(arMonth, <font color="darkblue"><b>1</b></font>)
        wbNew.Activate
        Sheets.Add
        <font color="blue">Set</font> wsNew = ActiveSheet
        wsNew.<font color="blue">name</font> = arMonth(i)
        wsNew.Paste                          <font color="00AA00">' сначала вылетает здесь</font>
<font color="blue">For</font> j = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> count - <font color="darkblue"><b>1</b></font>
      Range(<font color="teal">"A"</font> + CStr(j * <font color="darkblue"><b>11</b></font> + <font color="darkblue"><b>1</b></font>)).<font color="blue">Select</font>
      wsNew.Paste                           <font color="00AA00">' потом тут :( </font>
 ............
<font color="blue">next</font>
<font color="blue">next</font>
                        