Fejl i formatet

Her er en del af noget VBA.
Det kigger på kolonne A og skriver ugenummer i kolonne G og mmm-yy (mmm-åå) i kolonne H.
Det virker også god nok - sådan da - for i nogen af rækkerne skriver den mmm-yy (maj-07), men i andre yy-mmm (07-apr). Når man ser på hvad der reelt står i cellerne, står der maj-07 hvor der står det rigtige, men i de andre står der en hel dato (07-04-2008) Ja der står faktisk 2008.

Det jeg gerne vil have den til er, at skrive:
jan-07 når der står datoer fra 01-01-07 til 31-01-07
feb-07 når der står datoer fra 01-02-07 til 28-02-07
mar-07 osv.

r = 2
        lastrow = Range("A65536").End(xlUp).Row
        For r = 2 To lastrow
       
        Cells(r, 7).NumberFormat = "General"
        Cells(r, 8).NumberFormat = "General"
     
        Cells(r, 7).Value = UgeNr(Cells(r, 1).Value)
        Cells(r, 8).Value = Format((Cells(r, 1).Value), "mmm-yy")
        Next r
osv.

'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

Hvad er der galt?