удалить лишние :)  
   Set CFOBook = Workbooks.Add  
   Application.DisplayAlerts = False  
   While CFOBook.Sheets.Count <> 1  
       CFOBook.Sheets(1).Delete  
   Wend  
   Application.DisplayAlerts = True

из секретных архивов:  
 
Add method as it applies to the Workbooks object.  
 
Creates a new workbook. The new workbook becomes the active workbook. Returns a Workbook object.  
 
expression.Add(Template)  
 
expression   Required. An expression that returns a Workbooks object.  
 
Template  Optional Variant. Determines how the new workbook is created. If this argument is a string specifying the name of an existing Microsoft Excel file, the new workbook is created with the specified file as a template. If this argument is a constant, the new workbook contains a single sheet of the specified type. Can be one of the following XlWBATemplate constants: xlWBATChart, xlWBATExcel4IntlMacroSheet, xlWBATExcel4MacroSheet, or xlWBATWorksheet. If this argument is omitted, Microsoft Excel creates a new workbook with a number of blank sheets (the number of sheets is set by the SheetsInNewWorkbook property).  
 
Remarks  
If the Template argument specifies a file, the file name can include a path.

Припоздал, но зато проверил (4 варианта):  
 
Sub tt()  
'создание новой книги с одним листом  
Set WBA = Workbooks.Add(xlWBATWorksheet)  
Set WBB = Workbooks.Add(1)  
Set WBC = Workbooks.Add(template:=xlWorksheet)  
 
Set sh = Workbooks.Add(-4167).Worksheets(1): sh.Name = "Массив"  
End Sub

А если в команде Set WBB = Workbooks.Add(1) поменять единицу на 2 или тройку, то меняется тип книги, диаграмма или мокрокнига