непростая (для меня) задача по удалению листов

[poguda]

существует книга с листами "итоги", "Лист1", "Лист2"..."лист15". На листе "итоги" в столбец А1..А3 записываются названия некоторых листов, напр. "Лист6", "Лист9", "Лист13". Необходимо, чтобы по нажатию волшебной кнопочки удалились все листы, кроме "итоги", "Лист6", "Лист9", "Лист13". Всем спасибо кто мне поможет!

[KL]

Код: Выделить всё

Sub test()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each ws In ActiveWorkbook.Worksheets
        Select Case LCase(ws.Name)
        Case "итоги", "лист6", "лист9", "лист13"
        Case Else: ws.Delete
        End Select
    Next ws
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

[poguda]

спасибо за ответ, но как сделать так, чтобы названия оставляемых листов считывались именно из ячеек А1..А3.

[RayShade]

Код: Выделить всё

Sub test()



    Dim ws As Worksheet



    For Each ws In ActiveWorkbook.Worksheets



     If Not Worksheets("Итоги").Range("A1:A3").Find(What:=ws.Name, LookAt:=xlWhole, SearchOrder:=xlByColumns) ws.Delete



    Next ws



End Sub

[poguda]

почему-то строка "If Not Worksheets("Итоги").Range("A1:A3").Find(What:=ws.Name, LookAt:=xlWhole, SearchOrder:=xlByColumns) ws.Delete" красная и выдает ошибку "Expected: Then or GoTo"

[Krasnaja Shapka]

он then пропустил перед ws.delete

[RayShade]

Мда, отвык я от VBшного синтаксиса

[poguda]

я вставил Then, а сейчас пишет Type mismatch

[RayShade]

Совсем отвык от VB, мда.



If Not Worksheets("Итоги").Range("A1:A3").Find(What:=ws.Name, LookAt:=xlWhole, SearchOrder:=xlByColumns) Is Nothing Then ws.Delete

[RayShade]

Предвидя следующий вопрос - Application.DisplayAlerts = False перед циклом

[poguda]

Работает, но наоборот - удаляет нужные листы, оставляя ненужные

[RayShade]

Ну тогда Not убери после If

[poguda]

после того как убрал If он удаляет еще и "итоги"

[RayShade]

Убери NOT после IF. А не IF!

[RayShade]

И да, если лист Итоги не в списке - его тоже удалит

[poguda]

Спасибо огромное за помощь.

[RayShade]

Пожалуйста