Fejl ved søgning efter dato

Jeg har oprettet 52 ark, en for hver uge i året. (Excel 2007)
Nu er det jo ikke til at huske hvilke datoer der høre til de forskellige uger ;o)
Jeg har derfor lavet følgende kode til at søge efter en bestemt dato, men den vil af en eller anden grund ikke søge på en dato før d. 1/4,
ved søgning på f.eks. 21/3 kan den ikke finde datoen.
Men alle datoer efter d. 1/4 kan sagtens findes.
Alle ark er ens, undtaget datoerne selvfølgelig.

Sub FindDato()
    Dim vsheet As Worksheet
    Dim nyDato As String
    Dim c As Range
    månedÅr = Array "NON", "januar", "februar", "marts", "april", _
                    "maj", "juni", "juli", "august", "september", _
                    "oktober", "november", "december")
'=========
    inputDato = InputBox("Indtast dato - Format d/m", DATO)
    længde = Len(inputDato)
    If længde > 5 Or længde < 3 Then GoTo TxtFejl
'=========
    For n = 1 To længde          'Konverter dato til tekst
        If Mid(inputDato, n, 1) = "/" Then
            nyDato = Left(inputDato, n - 1)
            nyDato = nyDato & ". " & månedÅr(Right(inputDato, _
                                                        længde - n))
        End If
    Next
'=========
For Each vsheet In Sheets              'Søg efter dato i alle ark
    With vsheet.Range("c1:c103")  'Datoerne findes i kolonne C
        Set c = .Find(What:=nyDato, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
        End If
    End With
    If firstAddress <> "" Then GoTo Fundet
Next
    If firstAddress = "" Then
        GoTo IkkeFundet
    End If
'======================
    GoTo Slut
'>> MEDDELELSER <<
Fundet:
    vsheet.Activate          'Aktiver den fundne dato
    Range(firstAddress).Select
    GoTo Slut
TxtFejl:
    MsgBox "Den indtastede dato er forkert"
    GoTo Slut
IkkeFundet:
    MsgBox "Datoen " & nyDato & " blev ikke fundet" & Chr(10) & _
            "Det er måske en lørdag eller søndag"   
                            'Der er ikke lør eller søn med i arkene
    GoTo Slut
'======================
Slut:
End Sub