Draucken aus anderer Tabelle starten

Sub Drucken_RG()
Dim x As Double ' Variablen immer Deklarieren
Dim y As Double 'Dito
On Error GoTo Fehler
x = 1
y = 1
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=x, Copies:=y, Collate _
:=True
Exit Sub
Fehler:
MsgBox "Kann nicht drucken "
End Sub

Funktioniert auch tadellos, wenn ich es aus der Tabelle starte in der es liegt
RG (Tabelle8)
Nun möchte ich den Vorgang aus einer anderen Tabelle starten.
Problem, dann druckt es mir die andere Tabelle. Anscheinend, weil in dem
Makro kein Verweis auf die Tabelle ist, die gedruckt werden soll.
Kann jemand den Code entsprechend erweitern oder brauche ich da einen
neuen Code in der Tabelle aus der ich drucken möchte.
Für Hilfe schon Mal besten Dank im Voraus.
Gruß Thorsten