Makro zuweisen

Ich habe mir folgendes Makro gebastelt

Nun habe ich das Problem mit dem zuweisen des Makros an die Schaltfläche, nämlich er nimmt immer das Makro aus der Vorlage und nicht aus dem aktive sheet.
ActiveSheet.Shapes("Rectangle 1").Select
Selection.OnAction = "Tabelle1.Ausblenden"

Zeichne ich es mit dem Recorder auf bringt er mir exakt die Zeilen aber nicht das ich << Diese Arbeitsmappe>> gewählt habe
Bin für jede Hilfe Dankbar
Gruß Josi