Tabellenblätter ausblenden

Hallo zusammen,

leider habe ich mal wieder ein Anliegen. 

Ich habe eine Datei mit mehreren Tabellenblättern. Ein Blatt ist meine Gesamtübersicht aller vorhandenen Tabellenblätter in dieser Datei und eins meine Vorlage und die restlichen sind meine Arbeitsblätter. 

Wenn jetzt bei einem Tabellenblatt in AY35 ein „Ja“ steht, dann soll das Tabellenblatt als auch die entspr. Zeile in der Gesamtübersicht ausgeblendet werden. 

Wenn ich jetzt in meinem Suchfenster /-zeile C1 in der Gesamtübersicht das ausgeblendete Tabellenblatt suche, soll es wieder in der Gesamtübersicht als auch das Tabellenblatt im Original wieder angezeigt werden. 

https://www.herber.de/forum/archiv/1888to1892/1888457_Tabellenblaetter_ausblenden_und_trotzdem.html 

In o. g. Thread konntet Ihr bzw. Onur mir damals wie immer super helfen. 

Jetzt habe ich dieses Makro in eine neue Tabelle eingefügt und es funktioniert nicht. Ich finde den Fehler einfach nicht. Damals sollte das Makro ausgeführt werden, wenn bei AF3 ein „Ja“ steht und diesmal bei AY35.  Vielleicht liegt es jetzt daran, dass in AY35 eine Formel steht, wodurch das Tabellenblatt bestimmt wird oder das AY35 + AY36 verbunden sind. 

Hier die Beispiel Datei 
https://www.herber.de/bbs/user/158290.xlsm

Das Makro zum ausblenden ist wie folgt

Private Sub Workbook_Open()

 

End Sub

 

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)

     If Left(sh.Name, 2) > "PO" Then Exit Sub

     If Target.Address > "$Ay$35" Then Exit Sub

     If LCase(Target) = "ja" Then sh.Visible = False

     Dim z

     With Tabelle1

         For z = 3 To 1000

               If .Cells(z, 2) > "" And .Cells(z, 2) = sh.Name Then .Cells(z, 2).EntireRow.Hidden = True

          Next z

          .Activate

     End With

End Sub