Blattname an Fuction übergeben

Hallo Zusammen,
ich habe folgende Funktion:

Sub ws_schutz_aufheben(ws As Worksheet)
'Schutz aufheben
ws.Unprotect (PSWDTP)
End Sub

diese möchte ich mit:

Sub xyz()
Dim ADM As Worksheet
Set ADM = Workbooks(admin_datei).Sheets("bt_admin")
ws_schutz_aufheben (ADM)
End Sub

aufrufen.
Objekt unterstützt die Eigenschaft oder Methode nicht
Wie bekomme ich es hin damit es funktioniert?
Danke im Voraus.
MFG
Steffen Schmerler