Open workbook with x number of sheets

[Guest]

Hi
Using Office Pro 2003 & WinXP

Is it possible to set the number of sheets when opening a new Workbook
without changing the default .SheetsInNewWorkbook of 3.

I was searching this newsgroup and came across the following in a Jim Becker
post of 17-Dec 2002.

Is this the only way to open a new workbook with a specific number of sheets?

Code is courtesy of Ed Ferrero (12.02.02):

Dim curr_sheets As Integer
With Application
' save the no of sheets in new book that is currently set in options
curr_sheets = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 3
Workbooks.Add
.SheetsInNewWorkbook = curr_sheets
End With


--
Thank you

Regards

Bob C
Using Windows XP Home + Office 2003 Pro

 

[keepITcool]

that's the code I use too...
and I take it so does the rest as indeed there seems to be no other way.

 

[Guest]

Thanks keepITcool

Jim Beckers post nearly 2 years old - thought maybe the newer 2003 excel may
have included it.

Keep up the good work

Regards Bob C.

 

[keepITcool]

but then again...
would you code specifically for xl2003?


i'm trying to shake the habit of making things xl97 compatible,
but you dont wanna know how many people and companies are still
using it.

And let's be honest, MS has made so few significant changes since xl97,
there's no real reason to upgrade..
BUT i'm hearing rumors that xl12 may (finally!) be a MAJOR overhaul.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Robert Christie wrote :

 

[Ron de Bruin]

If you want one sheet in a workbook you can use a one liner.

Sub test()
Workbooks.Add (1)
End Sub

Or

Sub test2()
Workbooks.Add (xlWBATWorksheet)
End Sub