Vlookup vba - virker ikke.

Sub test()

On Error GoTo MyErrorHandler:

Ark = 1 'Starter på det første ark fra venstre

' Søger i A5 til A30 og returnere fra C, når dato er fundet stoppes søgning.
test_value = Application.WorksheetFunction.VLookup(CLng(CDate(Date)), Sheets(Ark).Range("A5:C30"), 3, False)
MsgBox test_value & " på " & Sheets(Ark).Name

' Hvis dato ikke findes
MyErrorHandler:
If Err.Number = 1004 Then
Ark = Ark + 1 ' Ark øges med 1

    ' Når alle 7 er gennemsøgt stoppes
    If Ark > 7 Then
    MsgBox "Fandt ikke dags dato!"
    Exit Sub
    End If

Resume ' Gentager søgning
End If

End Sub