Odstranění excelovského listu po jeho opuštění

[Puzzlehead]

Pánové potřebuji zase radu odborníků.
Mám sešit v něm dva listy Data, Tabulka. Na listu Tabulka je kontingenčí tabulka, kde se mi po kliknutí na hodnotu zobrazí detail dat na novém listu. Potřeboval bych, aby se tento nový list odstranil jakmile se vrátím na list Tabulka nebo Data, prostě když ho opustím. Předem díky

[mike007]

Klikni pravým tlačítkem myši na záložku Data a z kontextového menu vyber možnost Zobrazit kód. Do prázdného okna ve VBA nakopíruj toto makro:

[vb]
Private Sub Worksheet_Activate()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "Data" And ws.Name <> "Tabulka" Then ws.Delete
Next
Application.DisplayAlerts = True
end sub
[/vb]

To samé pro záložku Tabulka.

Nyní se ti každá nově vytvořená záložka smaže, jakmile ji opustíš, respektive přejdeš do záložky Data nebo Tabulka

[Puzzlehead]

Super rychlá a funkční odpověď. Díky