I want to delete two sheets before the file is closed everytime.

I had writen some similar code before, but I can't remember it and this time
it doesn't work. I must have something wrong here.

Private Sub WorkbookBeforeClose(ByVal Wb As Workbook, _
Cancel As Boolean)

Sheets("Summary").Select

Sheets("Sheet2").Select

End Sub


By the way, when before the sheets are deleted it always asks you to
confirm. Is it possible to put in a line to make the confirmation automatical?