SET an SUB-Makro weiterreichen

Wie kann man ohne grossen Aufwand mit SET definierte Tabellenblätter an weitere Routinen weiterreichen. In anderen (als in der aufrufenden) Routine sind sie nicht mehr definiert Bisher habe ich sie in allen Routine immer neu definiert. Das ist mir auf Dauer zu aufwendig

Beispiel

Sub SET_Weiterreichen1()

Dim T1 As Worksheet
Set T1 = Sheets("Tabelle1")

' Schreiben aus einem beliebigen, aktiven Tabellenblatt nach Tabelle1
T1.Cells(1, 1) = "Wert"
Call SET_Weiterreichen2

End Sub

Sub SET_Weiterreichen2()

T1.Cells(2, 1) = "Wert"
' Hier ist jetzt 'Variable T1 nicht definiert'

End Sub

Währe Euch (trotz des schönen Wetters) für Eure Hilfe dankbar

Gruss Gundolf