Many thanks - a handy piece of code to know as well.

Thanks again.

"Mike" wrote:

This should do the trick

Sub deleteit()
Application.DisplayAlerts = False

Sheets("sheet1").Select

ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

"DavidHawes" wrote:

I've got the following code in a macro to delete a worksheet within a
spreadsheet i've devised.

Sheets("Lookup tables").Select
ActiveWindow.SelectedSheets.Delete

When run, the macro (which is part of a larger macro) requests the user to
confirm the deletion of the worksheet.

Is there a piece of code I can enter to avoid this msg box appearing. I
would like the macro to automatically delete the worksheet and not ask for
confirmation to do so.

Many thanks,

David Hawes