deleting worksheets

I am writing an Excel 2003 VBA application that generates a new
worksheet. I want to delete the new worksheet when I close the
program. The recorded macro is:

Sub deletesheet()
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
End Sub

It works, but the procedure is interrupted by the warning:

"Data may exist in the sheet(s) selected for deletion. To permanently
delete the data, Press Delete"

delete button cancel button

What must I do to by-pass this warning/action and let the delete
process go forward without any inputs from me?

vbatyro