Is it possible to set how many sheets are in a workbook
when you use Workbooks.Add. Or can I set the sheetcount
without writing a loop to add the amount of sheets.

Hi

Try this

Sub test()
Dim OldValue As Integer
OldValue = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 4
Workbooks.Add
Application.SheetsInNewWorkbook = OldValue
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Excel and VBA user" wrote in message ...
Is it possible to set how many sheets are in a workbook
when you use Workbooks.Add. Or can I set the sheetcount
without writing a loop to add the amount of sheets.

Or, if you only want one worksheet, use this...Workbooks.Add(xlWorksheet)

"Ron de Bruin" wrote:

Hi

Try this

Sub test()
Dim OldValue As Integer
OldValue = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 4
Workbooks.Add
Application.SheetsInNewWorkbook = OldValue
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Excel and VBA user" wrote in message ...
Is it possible to set how many sheets are in a workbook
when you use Workbooks.Add. Or can I set the sheetcount
without writing a loop to add the amount of sheets.

Or, if you only want one worksheet, use this...Workbooks.Add(xlWorksheet)

Or this

Workbooks.Add (1)
a higher number is not working

Or

Workbooks.Add (xlWBATWorksheet)


--
Regards Ron de Bruin
http://www.rondebruin.nl


"TommyGun" wrote in message ...
Or, if you only want one worksheet, use this...Workbooks.Add(xlWorksheet)

"Ron de Bruin" wrote:

Hi

Try this

Sub test()
Dim OldValue As Integer
OldValue = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 4
Workbooks.Add
Application.SheetsInNewWorkbook = OldValue
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Excel and VBA user" wrote in message ...
Is it possible to set how many sheets are in a workbook
when you use Workbooks.Add. Or can I set the sheetcount
without writing a loop to add the amount of sheets.