Neues Problem mit ComboBox

Private Sub Worksheet_Activate()
With ComboBox1
.Clear
.AddItem "alle Zeilen angezeigt"
.AddItem "leere Zeilen ausgeblendet"
.ListIndex = 0
End With
End Sub

Private Sub ComboBox1_Click()
Dim varWert As Variant
varWert = Me.ComboBox1.Value
Range("G3") = varWert
Select Case varWert
Case "leere Zeilen ausgeblendet"
Selection.AutoFilter Field:=2, Criteria1:="0", Operator:=xlAnd
Case "alle Zeilen angezeigt"
Selection.AutoFilter Field:=2
End Select
End Sub

Ich kann den Code nicht in “Diese Arbeitsmappe” legen, weil das Tabellenblatt per Makro in eine neue Arbeitsmappe kopiert und unter einem anderen Namen abgespeichert wird.
Jetzt ist nur das Problem, dass die neue Datei nur ein Tabellenblatt enthält und daher das Tabellenblatt beim Öffnen der Datei nicht aktiviert wird. D.h. Wenn ich die neue Datei öffne, sind die Auswahlmöglichkeiten in der ComboBox nicht enthalten. Weiß jemand Abhilfe?
Die Dateien werden firmenintern verschickt, deswegen wäre es toll, wenn es einfach da wäre, wenn die Datei geöffnet wird und nicht erst das Makro angestoßen werden muss.
Danke im Voraus!
Grüße, Melanie