Workbook before close
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? |
Workbook before close
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? |
Workbook before close
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? |
All times are GMT +1. The time now is 07:44 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com