Deleting a worksheet

[Martin]

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

 

[Chip Pearson]

Place

Application.DisplayAlerts = False

prior to deleting the sheets.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Jan Kronsell]

Try

Application.DisplayAlerts = False
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

Jan

 

[Norman Jones]

Hi Martin,

Try:

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

 

[Martin]

Thanks a lot. It's easy when you know how - unfortunately I don't