dmax in vba

Dim max As Long
max = Application.WorksheetFunction.dMax(Sheets("fensterliste").Range("C7:d65536"), "wohnung", " _
_
2.OG")
MsgBox max

Die Tabelle sieht so aus:
Wohnung Geschoss
1 1.OG
2 2.OG
3 2.OG
Es sollte als Ergebnis 3 rauskommen, nämlich der max Wert aus der Spalte "Wohnung" mit dem Kriterium "2.OG"
Was mach ich falsch?
FEhlermeldung:"Laufzeitfehler 1004
Die DMAX Eigenschaft des Worksheetfunction objectes kann nicht zugeordnet werden"
Vielen!! Dank für die Hilfe!
ciao
MIChael