Нужен макрос для удаления листов из книги, в названиях которых содержится определенный текст.

[kuklp]

Sub ggg()
Dim i&
    Application.DisplayAlerts = False
    For i = Worksheets.Count To 1 Step -1
        With Sheets(i)
            If .Name Like "*Изменения ассигнов*" Or .Name Like "Изменения лимитов*" Or _
               .Name Like "*Изменения общий*" Or .Name Like "*СВОД_Изменения ассигнов*" Or _
               .Name Like "*СВОД_Изменения общий*" Then .Delete
        End With
    Next
    Application.DisplayAlerts = True
End Sub

[АННА-ЕАО]

kuklp Спасибо. Понятно . Теперь все получилось.


Hugo121, R Dmitry, kuklp СПАСИБО!

[Hugo121]

Не люблю And or OR

Sub tt()
Dim i&
    Application.DisplayAlerts = False
    For i = Worksheets.Count To 1 Step -1
        With Sheets(i)
        Select Case True
        Case .Name Like "бух.уч.(лимиты)-МДОУ*"
        Case .Name Like "*СВОД_Изменения лимитов*"
        Case Else: .Delete
        End Select
        End With
    Next
    Application.DisplayAlerts = True
End Sub

[АННА-ЕАО]

Hugo121 Простите, а что значить не любите?
Hugo121 СПАСИБО! Верно ли я поняла, что благодаря Вашему макросу в книге удаляются все листы кроме тех в названиях которых содержится "определенный текст" ?

Да, в данном случае это удобней. Так как тех листов которые нужно оставить гораздо меньше, чем тех которые необходимо удалить.

Но если соотношение будит другим, может макросом от kuklp будет пользоваться целесообразней?

Или я не права?

[Hugo121]

Ну в случае AND/OR проверяются все варианты, что замедляет код.
В Вашем случае это мизер, но если такая проверка делается в цикле тысячи раз, то оно заметно.
Да и код выглядит как-то непрозрачно...
И да, Вы правильно поняли - удаляются все другие листы, не прошедшие через "сито".
Можно по этому принципу и наоборот сделать:

Sub tt()
Dim i&
    Application.DisplayAlerts = False
    For i = Worksheets.Count To 1 Step -1
        With Sheets(i)
        Select Case True
        Case .Name Like "бух.уч.(лимиты) (*": .Delete
        Case .Name Like "*Изменения ассигнований*": .Delete
        ' и т.д.
        End Select
        End With
    Next
    Application.DisplayAlerts = True
End Sub

[АННА-ЕАО]

Hugo121 Понятно. Спасибо ещё раз. Буду пользоваться.

[OldSdis]

Сообщение от gluk_fm

В вложении, просто в цикл (if ....... & end if)так же допишите только те листы которые не нужно удалять.

Тут то что нужно. Работает отлично. Просто нужно в цикле указать Имя каждого листа который необходимо сохранить

Спасибо за полезную вещь