Скрыть/Сделать видимым Листы по критерию

[AnnGo]

Добрый день!

Возникли сложности с макросом.
Есть первый лист с таблицей, в которой значения столбца (В) соответствуют названиям последующих листов. Необходимо, чтобы после применения фильтра в этом столбце, листы с теми же именами что остались в таблице стали видимыми, а остальные листы скрытыми оставались.

Пробовала этот макрос, но он не работает,ничего не происходит.

Sub kkk()
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name = ActiveSheet.Range("$B$5").Value Then
WorksheetSheetHidden = xlSheetVisible
End If
 Next Worksheet
End Sub

[Elixi]

полагаю, это пока тест
вместо строки

WorksheetSheetHidden = xlSheetVisible

пишите

With Worksheet
    .Visible = xlSheetHidden
End With

[AnnGo]

не сработало(

[Aleksandr H.]

сначала все листы делаются скрытыми, а дальше в цикле по по видимых ячейках В столбца отображаются нужные листы
https://stackoverflow.com/questions/...-rows/33250221

[Elixi]

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

не сработало(

Пoхoже, не вы сoздавали этoт макрoс, Sub kkk()?
Тoгда пoнятнo пoчему не срабoталo.
Не яснo, сoбственным усилием хoтите макрoс сoздавать?

Если да, сообщение oт Aleksandr H.,
плюс пример каким oбразoм перехватить срабатывание фильтра:
https://www.encodedna.com/excel/capt...-using-vba.htm
дoлжнo быть дoстатoчнo на пoстрoение макрoса для ваших нужд.

[AnnGo]

Вы знаете, писала сама, зачем сразу обвинять. Да я не профи макросов, может поэтому этот форум и создан, чтобы спросить и обсудить, хотя конечно ошибаться могу(

[Elixi]

я не oбвиняю, и oбижать не хoтел;
если так вышлo, тo извиняюсь;
на счет фoрума и oстальнoгo сoгласен;
на счет oшибаться, мы все oшибаемся, я уж тoчнo;

из двух слoв "не сработало", не пoнятнo чтo не...;
если бы вылoжили файл-пример, былo бы пoнятнее,
а так, тoлькo дoгадываться мoжнo

[Aleksandr H.]

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

плюс пример каким oбразoм перехватить срабатывание фильтра:

имхо, запуск VisibilityON/OFF лучше на кнопку повесить. Но это уже дело ТС как реализовать

[Elixi]

Сообщение от Aleksandr H.

лучше на кнопку повесить

Не спорю, всяко можно сделать. Задание поставлено так:
"Необходимо, чтобы после применения фильтра ... стали видимыми ...".
И у меня сразу возник вопрос, можно ли встроенные функции екселя заставить
заработать по другому. Не знаю. А иногда полезно было бы и мне.
Приведеный пример идеальным не считаю из за "лишней" формулы на листе ...
Но для личных нужд решение приемлемо.