datum vandaag zoeken en inhoud cellen kopiëren

[littlepete]

hallo

aartsvervelend is het: je knutselt en bouwt en uiteindelijk werkt alles prima... de dag nadien wil je verderdoen, maar helaas: er wordt dienst geweigerd...

deze macro zoekt in een chronologische lijst naar de eerstvolgende datum op vandaag of daarna, de inhoud van de kolommen a b en c kopieer
ik daarna naar een andere sheet...

waar zit de fout dan ???

Sub kalenderdag()
Dim Heden As Date
Dim Celx As Date
Dim Rij, Kolom As Integer
Sheets("kalender").Select
Heden = Date
Kolom = 3
Rij = 3
Do
Rij = Rij + 1
Celx = Cells(Rij, Kolom).Value
Loop Until Celx >= Heden
ActiveSheet.Cells(Rij, 1).Select
Range("a1").Value = ActiveSheet.Cells(Rij, 1) & " is " & ActiveSheet.Cells(Rij, 2) & " oud op " & Format(ActiveSheet.Cells(Rij, 3), "dddd, d mmmm yyyy")
End Sub

( de lijn celx = cells (...) kleurt geel )