Prb: How to remove default worksheets from workbook

[Ashish Kanoongo]

I am genrating various Excel worksheet in workbook using MS-Access. I am able to generate worksheet and with the different name. My problem is that when ever I create workbook, 1/3 worksheet automatically appears. I dont want this (sheet1, sheet2, sheet3). I want only my generated worksheet. FOllowing is my coding for adding

*-----------------------------------------------
Dim ExcelApp As New Excel.Application
Dim ExcelSht As New Excel.Worksheet
Dim ExcelWkb As New Excel.Workbook

Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
Set ExcelWkb = ExcelApp.Workbooks.Add
----------Loop Start
Set ExcelSht = ExcelWkb.Worksheets.Add
ExcelSht.Visible = xlSheetVisible
ExcelSht.Move after:=Worksheets(Worksheets.Count)
ExcelSht.name = arrCount(name)
ExcelSht.PageSetup.PrintGridlines = True
ExcelSht.PageSetup.Orientation = xlPortrait
..
..
..
..
--- Loop End
*--------------------------

 

[Ashish Kanoongo]

Re: How to remove default worksheets from workbook

 

[mreinders]

Tools/Options/General
sheets in new workbook =0

 

[Wouter]

Choose from these two options

1: ' To remove all empty sheets
ExcelApp.DisplayAlerts = False
For Each ExcelSht In ExcelWkb
' An ampty sheet has 1 used cell: "A1"
If ExcelSht.UsedRange.Cells.Count = 1 Then
' if this is empty then the sheet is empty
If IsEmpty(ExcelSht.UsedRange.Cells(1)) Then
ExcelSht.Delete
End If
End If
Next
ExcelApp.DisplayAlerts = True

2: ' To remove all default sheets
Dim intSheets As Integer
'
intSheets = ExcelApp.SheetsInNewWorkbook

ExcelApp.DisplayAlerts = False
Do While intSheets > 0
ExcelWkb.Worksheets("Sheet" & CStr(intSheets)).Delete
intSheets = intSheets - 1
Loop
ExcelApp.DisplayAlerts = True

Good Luck