Gesamtes Sheet as Parmeter in Sub übergeben

Sub einSheetMitgeben(einSheet As Sheets)
tue irggend was....
End Sub

--------------------------------------------------------
Aufruf dann aus einem anderes Makro mit:

Sub aufRuf()
einSheetMitgeben Tabelle1
einSheetMitgeben Tabelle2
End Sub

----------------------------------------------
Aber ich bekomme die Fehlermeldung Fehler 13 Typen Unverträglichkeit
Was mache ich falsch?
Gruss
Horst