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

Place

Application.DisplayAlerts = False

prior to deleting the sheets.


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


"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

Try

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

Jan

"Martin" skrev i en meddelelse
...
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

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

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