Fejl i makro i Excel 2007

Jeg har en makro der er lavet i Excel 2003. Nu har jeg fået Excel 2007 og har en fejl i følgende makro:

'Bruges til at vælge ugenummer i Diagram-makro
Function UgeNr(MyDate) ' fra bak
Dim Resten As Single
Resten = (MyDate - 2) Mod 7
UgeNr = Int((MyDate - DateSerial(Year(MyDate + 3 - Resten), 1, Resten - 9)) / 7)
End Function


Fejlen opstår i "Resten = (MyDate - 2) Mod 7"
Fejlen er "Type mismatch (Error 13)"
Er der nogen der kan hjælpe?