Creating a workbook with named sheets

[DChambers]

How would I create a workbook with two sheets named 'Blah1' and 'Blah2'?

I do not know how many sheets are created when I do workbooks.add and are there always going to be X number of sheets from computer to computer?

If only one sheet is created should I rename it and create another?

If three or more sheets are created what would be the best way to delete the unwanted sheets?

I must be missing something very simple.

Anyone?

 

[Legacy 98055]

Wrap some instructions around your workbooks.add method...

Sub Example()
    On Error GoTo Err_Example
    Dim SheetsInNewWorkbook As Long
    
    SheetsInNewWorkbook = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 2
    
    Workbooks.Add
    
    Application.SheetsInNewWorkbook = SheetsInNewWorkbook
Exit Sub
Err_Example:
Application.SheetsInNewWorkbook = SheetsInNewWorkbook
End Sub

 

[DChambers]

Tom,

Thanks for your code, it took a while to understand it.
Added names for worksheets and it works !!

Thanks for your help