Creating Excel Sheet From Access

I have written a piece of code in Access that creates a Excel work book. The work book is populated with the various data and then made visible to the user.

Everything is working perfectly apart from one minor problem.

When creating a new workbook excel automatically puts 3 worksheets in... If the code creates 1 or 2 sheets of data I want it too delete the sheet that is blank. This is easy to do although it always prompts the user for confirmation.

How do I delete a worksheet without the prompt?

I have hunted everywhere for the answer and can't find it anywhere, any help would be great.

Example of code:


Dim XL As Excel.Application
Dim WkBook As Excel.Workbook
Dim WkSheet As Excel.Worksheet

Set XL = CreateObject("Excel.Application")

Set WkBook = XL.Workbooks.Add

Set WkSheet = WkBook.Worksheets(1)

WkSheet.Delete