Delete Worksheets

[Sal]

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?

 

[Jim Thomlinson]

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

 

[meh2030]

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

 

[Sal]

Thank you for your help. This works well now.

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

 

[Sal]

This works very well. Thank you for your help

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