Удаление вкладок

[женя2010]

ДОброе утро!

В рабочем листе допустим 50 вкладок. Через макрос рекодер записал макрос который по очереди удаляет все вкладки. Код его типа такой

Sheets("мама").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("папа").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("брат").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("сестра").Select
    ActiveWindow.SelectedSheets.Delete

Думал все будет "четко", вот только когда я его запусти-перед удалением вкладки меня каждый раз Ексель спрашует "Вы действительно хотите удалить вкладку на которой имеються данные" или что-то такое. И мне приходиться 50 раз нажимеать ОК. Как сделать так что бы он не задавал мне этот вопрос, програмно,через VBA?

[doober]

Удалит все листы .кроме первого

 Sub Killer()
Application.DisplayAlerts = False
For n = ThisWorkbook.Worksheets.Count To 2 Step -1
ThisWorkbook.Worksheets(n).Delete
Next
Application.DisplayAlerts = True
End Sub

[женя2010]

спасибо, но нет. у меня еще штук 5 вкладок которые надо оставить....
хотя если изменить цикл то как раз те что надо остаються.....вроде пайдет,хз)))спасибо