Workbooks.add command

[robcarr]

Dear All,

Currently when I use the workbooks.add command, I get 3 sheets added(my default setting), is there a way to specify how many sheets to create when the workbook is added, currently I have to add all sheets by using the Sheets.Add command.

Thanks for any help on this.

Rob.

 

[dwilson01]

This should do it, if you don't add the Bold statements, the default sheet count will be forever altered. Just kidding, you can change manually by selecting Tools - Options - Genereal - Sheets In New Workbook.

Dim NewSheets As Long, OldSheets As Long

OldSheets = Application.SheetsInNewWorkbook
NewSheets = InputBox("Enter required number of worksheets", "Number of Workssheets in Workbook&quot
Application.SheetsInNewWorkbook = NewSheets
Workbooks.Add
Application.SheetsInNewWorkbook = OldSheets

Cheers,

Dave