Maybe this

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets("Summary").Delete
Sheets("Sheet2").Delete
Application.DisplayAlerts = True
End Sub

Mike

"jwang036" wrote:

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?