Datum

Habe ein Problem.

Ich möchte Zellen hervorheben.
Beispiel: wenn der aktuelle Tag der 03.07.02 ist, soll der Rahmen der Zelle B10 rot sein.
Bis jetzt funktioniert das noch mit festen Werten (allerdings nicht sehr sinvoll für 365 Tage =o) )

Sub test()

Dim heute

heute = Date

If heute = #7/3/2002# Then
Worksheets("Tabelle1").Range("B10").Borders.Color = RGB(250, 0, 0)
End If
End Sub

Wie kann ich das erreichen, dass ich das Datum mit Variablen angeben kann. Z.B. mit einer Schleife ( If heute = # i/j/2002 )
??? Anscheinend funktioniert das so nicht.

Hoffe, mir kann jemand helfen.