VBA fejl ved brug af lopslag

Hej

Er der nogen der kan hjælpe

Jeg skal lave et Lopsalg i VBA som checker en dato "rROW1" i en tabel "Hentkalender"  (kolonne D)  og returnere true/false eller 1/0. i (kolonne E) og skal herefter farve feltet. Herefter skal der laves et yderligere Lopsalg i en anden tabel som skal indsætte en tekst i sammen kolonne.

Men mit Lopsalg laver nedenstående fejl

"Run-time error '1004'

"Kan ikke angive egenskaben Vlookup for klassen WorkSheetFunction"

På forhånd tak.

Hilsen
Larsen


Sub TilRetLinier()

Dim rROW1 As String
Dim Res  As Variant

Sheets("Udskrift").Select
Range("R5").Select

Do Until ActiveCell = "$AD$5"
      rROW1 = ActiveCell.Value  'Dato her 01-02-2013
     
      'Opslag i Ark "HentKalender" med Dato i kolonne D og 0 eller 1 i kolonne E
     
      Res = Application.WorksheetFunction.VLookup(" & rROW1 & ", Worksheets("HentKalender").Range("D1:E5000"), 2, 0)
 
      If Res = 1 Then
        ActiveCell.Interior.ColorIndex = 3
      End If

      ActiveCell.Offset(0, 1).Activate
  Loop
End Sub