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?

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?

Thanks! It works well.

Now I have a new problem. I have a button to add sheet1 & summary to
summarise some calculations. Then they will be deleted everytime when the
file is closed. However, if the user doesn't click the button and close the
file the error appears as the sheets are not there. I am trying to add the
"if then" code to judge if the sheets exist or not first. But I'm not very
good with VB and if you see this reply I believe you will be much quicker to
solve this problem. Thanks in advance.


€œMike H€�编写：

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?