Hi Martin,

Try:

Sub Tester()
Application.DisplayAlerts = False
Sheets(Array("Sheet1", "Sheet2")).Delete
Application.DisplayAlerts = True
End Sub


---
Regards,
Norman



"Martin" wrote in message
...
I had great help with my last problem from bpeltzer.

Here is my new problem.

I now want to delete some worksheets without Excel asking me if I really
want to do it. I am using the code below:

Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete

I want to do this automatically without having to click on the delete
dialogue box that appears.

Any ideas?

Thanks in advance,
Martin