Horizontaal correct zetten juist na de blokkering

[muze67]

Hallo Is er een mogelijkheid dat als ik het bestand open dat deze altijd na de blokkering in de juiste week komt te staan.

in bijlage een voorbeeld

 

[SjonR]

zo?

Private Sub Workbook_Open()
Application.Goto Blad1.Range("3:3").Find(Date)
End Sub

 

[snb]

Bestanden met samengevoegde cellen negeer ik.

 

[muze67]

Hoe maak je dit? Ben echt niet een expert hierin.
Waar moet ik dit noteren?
Moet ik een macro ofzo schrijven ??
Wat moet ik stap voor stap doen?


Dank julie