Objektvariable an Prozedur übergeben

Sub Namen_Auflistung()
Dim i, y, a As Integer
i = 0
For Each Blatt In Worksheets
If Blatt.Name = "9428" Then
GoTo Weiter
End If
i = i + 1
Next
Weiter:
For y = Worksheets.Count To i + 1 Step -1
Set Blatt = Worksheets(y)
Worksheets("Gesamtersparnis").Cells(y - 1, 2) = Blatt.Name
Zelle_finden (Blatt)
Next
End Sub

Sub Zelle_finden(ByVal Blatt As Worksheet)
Dim Name As String
Dim Spalte, Zeile As Integer
Name = "Ersparnis Depotbankgebühr"
Set Zelle = Blatt.Range("A1:z100").Find(Name)
Spalte = Zelle.Row
Zeile = Zelle.Column
End Sub