Opgelost Openen op datum

[wieter]

Bijgevoegd bestand, is een jaarkalender met alleen dinsdagen, donderdagen en zondagen.
Die datums staan in rij 1.
Ik zoek een code(This WorkBook) om bij openen van het bestand naar de dichtstbij zijnde datum te gaan.
Dank aan wie kan helpen.
Grtn Wieter

 

[edmoor]

Bijvoorbeeld zo:

For Each cl In Range("B1:LB1")
    If cl.Value >= Date Then
        cl.Activate
        Exit For
    End If
Next cl

 

[wieter]

Bedankt edmoor, jouw code doet exact wat ik voor ogen had.
Fijn