Can I open a blank workbook (VBA)?

[MartinS]

Hi
Is it possible to open a blank workbook (i.e. no worksheets) then add to that a blank worksheet onto which I can copy/paste my stuff?
Each time I try it, it opens a workboo with three blank worksheets (as set in my options) - what I'd like is to only have the number of sheets required in my workbook - is this possible, or is is just a case of deleting the sheets before closing?
The code I use is:

Private wkbTWB As Workbook, wkbNEWWB As Workbook
Private wksNEWWS As Worksheet

'Define current workbook object...
Set wkbTWB = ThisWorkbook
'Add new workbook object...
Set wkbNEWWB = Workbooks.Add
'Add new worksheet object...
Set wksNEWWS = wkbNEWWB.Worksheets.Add

Any help/advice gratefully received
Regards
Martin

 

[Norie]

Martin

What exactly are you copying?

The following code will create a workbook with only 1 sheet.

Workbooks.Add xlWBATWorksheet

 

[GlennUK]

How about:

Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = 3

 

[GlennUK]

Doh! Forgot about xlWBATWorksheet.

 

[MartinS]

I'm actually creating a 'report' based on parameters and data used in a spreadsheet (for checking purposes). The first sheet contains a copy of the parameters used, and the second the data and a few columns of calcs pertaining to that data. The copying is working fine, I just didn't want to save a workbook with more sheets than necessary.
Both suggestions will do the trick I guess, all I need to do is remove the worksheets add from the first process and write directly to the existing sheet.
Thanks guys
Regards
Martin