I am using the following macro to delete worksheets in my workbook.

Sub Deleteworksheets()
Sheets("Current Asset").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Current Liability").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Long Term Asset").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Long Term Liability").Select
ActiveWindow.SelectedSheets.Delete
End Sub


The obstacle I am having is that before each sheet deletes I am getting a
message box that reads “Data may exist in the sheet(s) selected for deletion.
To permanently delete the data, press Delete.� I would like to adjust the
macro I have so that it will override this message box and delete the sheets
I have indicated that I want to delete without checking if it is okay. Could
you advise me on how I might do this?

Sub Deleteworksheets()
application.displayalerts = false
Sheets("Current Asset").Delete
Sheets("Current Liability").Delete
Sheets("Long Term Asset").Delete
Sheets("Long Term Liability").Delete
application.displayalerts = true
End Sub

--
HTH...

Jim Thomlinson


"Sal" wrote:

> I am using the following macro to delete worksheets in my workbook.
>
> Sub Deleteworksheets()
> Sheets("Current Asset").Select
> ActiveWindow.SelectedSheets.Delete
> Sheets("Current Liability").Select
> ActiveWindow.SelectedSheets.Delete
> Sheets("Long Term Asset").Select
> ActiveWindow.SelectedSheets.Delete
> Sheets("Long Term Liability").Select
> ActiveWindow.SelectedSheets.Delete
> End Sub
>
>
> The obstacle I am having is that before each sheet deletes I am getting a
> message box that reads “Data may exist in the sheet(s) selected for deletion.
> To permanently delete the data, press Delete.� I would like to adjust the
> macro I have so that it will override this message box and delete the sheets
> I have indicated that I want to delete without checking if it is okay. Could
> you advise me on how I might do this?
>

On May 5, 3:58*pm, Sal <S...@discussions.microsoft.com> wrote:
> I am using the following macro to delete worksheets in my workbook.
>
> Sub Deleteworksheets()
> * * Sheets("Current Asset").Select
> * * ActiveWindow.SelectedSheets.Delete
> * * Sheets("Current Liability").Select
> * * ActiveWindow.SelectedSheets.Delete
> * * Sheets("Long Term Asset").Select
> * * ActiveWindow.SelectedSheets.Delete
> * * Sheets("Long Term Liability").Select
> * * ActiveWindow.SelectedSheets.Delete
> End Sub
>
> The obstacle I am having is that before each sheet deletes I am getting a
> message box that reads “Data may exist in the sheet(s) selected for deletion.
> *To permanently delete the data, press Delete.” *I would like to adjust the
> macro I have so that it will override this message box and delete the sheets
> I have indicated that I want to delete without checking if it is okay. *Could
> you advise me on how I might do this?

Sal,

You can use Application.DisplayAlerts = True/False. True shows the
message box result you are referring to, False does not show the
message box result you are referring to. Set DisplayAlters to False
prior to deletion and then set DisplayAlerts to True when you finish
your deletion.

Best,

Matthew Herbert

Thank you for your help. This works well now.

"(E-Mail Removed)" wrote:

> On May 5, 3:58 pm, Sal <S...@discussions.microsoft.com> wrote:
> > I am using the following macro to delete worksheets in my workbook.
> >
> > Sub Deleteworksheets()
> > Sheets("Current Asset").Select
> > ActiveWindow.SelectedSheets.Delete
> > Sheets("Current Liability").Select
> > ActiveWindow.SelectedSheets.Delete
> > Sheets("Long Term Asset").Select
> > ActiveWindow.SelectedSheets.Delete
> > Sheets("Long Term Liability").Select
> > ActiveWindow.SelectedSheets.Delete
> > End Sub
> >
> > The obstacle I am having is that before each sheet deletes I am getting a
> > message box that reads “Data may exist in the sheet(s) selected for deletion.
> > To permanently delete the data, press Delete.� I would like to adjust the
> > macro I have so that it will override this message box and delete the sheets
> > I have indicated that I want to delete without checking if it is okay. Could
> > you advise me on how I might do this?
>
> Sal,
>
> You can use Application.DisplayAlerts = True/False. True shows the
> message box result you are referring to, False does not show the
> message box result you are referring to. Set DisplayAlters to False
> prior to deletion and then set DisplayAlerts to True when you finish
> your deletion.
>
> Best,
>
> Matthew Herbert
>

This works very well. Thank you for your help

"Jim Thomlinson" wrote:

> Sub Deleteworksheets()
> application.displayalerts = false
> Sheets("Current Asset").Delete
> Sheets("Current Liability").Delete
> Sheets("Long Term Asset").Delete
> Sheets("Long Term Liability").Delete
> application.displayalerts = true
> End Sub
>
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Sal" wrote:
>
> > I am using the following macro to delete worksheets in my workbook.
> >
> > Sub Deleteworksheets()
> > Sheets("Current Asset").Select
> > ActiveWindow.SelectedSheets.Delete
> > Sheets("Current Liability").Select
> > ActiveWindow.SelectedSheets.Delete
> > Sheets("Long Term Asset").Select
> > ActiveWindow.SelectedSheets.Delete
> > Sheets("Long Term Liability").Select
> > ActiveWindow.SelectedSheets.Delete
> > End Sub
> >
> >
> > The obstacle I am having is that before each sheet deletes I am getting a
> > message box that reads “Data may exist in the sheet(s) selected for deletion.
> > To permanently delete the data, press Delete.� I would like to adjust the
> > macro I have so that it will override this message box and delete the sheets
> > I have indicated that I want to delete without checking if it is okay. Could
> > you advise me on how I might do this?
> >