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?