SheetsInNewWorkbook Property Example
This example displays the number of sheets automatically inserted into new workbooks.
MsgBox "Microsoft Excel inserts " & _ Application.SheetsInNewWorkbook & _ " sheet(s) in each new workbook"