Bij openen excel bestand automatisch naar week tan gaan

[PeterBijns]

Beste allemaal,

Ik heb een excel bestand met 53 tabbladen daarin, voor elke week een.

Nu wil ik als ik het bestand open graag naar het tabblad vaan de huidige week gaan, is dat mogelijk zo ja hoe dan.

Alvast dank voor een oplossing.
Groet, Peter

 

[HSV]

In ThisWorkbook.

Private Sub Workbook_Open()
 Application.Goto Sheets(Format(Date, "ww", vbMonday, vbFirstFourDays)).Cells(1)
End Sub

Ingekort.

Private Sub Workbook_Open()
 Application.Goto Sheets(Format(Date, "ww", 2, 2)).Cells(1)
End Sub

 

[PeterBijns]

Harry,

Hartelijk bedankt voor de goede oplossing ik ben er erg mee geholpen.

Groet, Peter