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?