Bestand openen op maandag huidige week

[wieter]

Onderstaande code heb ik gepikt van SNB.
Het is de bedoeling dat het bestand telkens opent op de maandag van de huidige week.
Dit werkt ook, want de code komt van snb.

Private Sub Workbook_Open()
Application.Goto Sheets(1).Cells(Format(DateSerial(Year(Date), 1, 5 - Weekday(DateSerial(Year(Date), 1, 4), 2) + 7 _
* (Application.WeekNum(Date, 21) - 1)), "y"), 2)
End Sub

Ik zou echter willen dat die datum (maandag van huidige week) bovenaan staat.
Dus i.p.v. "Application.Goto" zou ik "Scroll" willen gebruiken, dit is echter niet zo simpel als ik dacht.
Weet iemand hoe?

 

[snb]

Private Sub Workbook_Open()
Application.Goto Sheets(1).Cells(Format(DateSerial(Year(Date), 1, 5 - Weekday(DateSerial(Year(Date), 1, 4), 2) + 7 _
* (Application.WeekNum(Date, 21) - 1)), "y"), 2),true
End Sub

PS. De VBEditor bevat een aantal handige knoppen; F1 is er een van. Selecteer een begrip waarover je meer wil weten (in dit geval 'GoTo') en druk dan op F1.

 

[wieter]

Weer maar eens hartelijk bedankt snb!