Selection.Find im VBA

Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt.

Warum?
Hier das VBA

Sub test()
Dim Zähler As Byte, Tag As Date
Tag = Date
2:
Zähler = Zähler + 1
If Zähler = 5 Then GoTo 3:

Do
Columns("J:J").Select
On Error GoTo 1:
Selection.Find(What:=Tag, After:=ActiveCell).Activate
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Loop
1:
Tag = Worksheets("Leihe").Range("A1") - Zähler
GoTo 2:
3:
Range("A1").Select
End Sub

Danke für die Hilfe!!

Thomas