Naar de juiste datum achter de veldsplitsing

[JanWillem63]

Hallo,
ik ben bezig met een jaarplanning waarbij ik in de sheet ruim kan scrollen.
Als ik het bestand open, wil ik dat de datum van vandaag direct achter de veldsplising komt te staan.
Helaas wil me dat niet lukken. Weet iemand raad?
Ik heb een voorbeeld toegevoegd.Bekijk bijlage MapA.xlsx
Bvd
Jan Willem

 

[Cobbe]

Met deze code in ThisWorkbook moet dat lukken

Private Sub Workbook_Open()
Dim cl As Range
For Each cl In Sheets(1).Range("C2:xfd2")
 If cl = Date Then
  Application.Goto Range(cl.Address).Offset(-1), scroll:=True
    Exit Sub
 End If
Next
End Sub

 

[JanWillem63]

Werkt, bedankt voor de hulp.

Jan Willem