Het programmatje werkt niet meer

[ExcelAmateur]

Beste helpers,

Zou iemand eens naar dit bestandje kunnen kijken?
Het heeft altijd goed gewerkt en nu niet meer.

Vorige week hier voor iemand geplaatst, toen werkte het nog.

Kan het zijn doordat ik een ander bestandje van Helpmij heb bekeken en dit iets heeft uit geschakeld?
Misschien heeft die persoon vergeten om iets aan het eind van de macro weer in te schakelen, zo dat dit nu niet meer goed werkt?


Alvast hartelijk bedankt,

 

[HSV]

Je format van de dag van vandaag is zondag 04 oktober 2015.
In kolom D staat deze er niet tussen (zondag 4 oktober 2015 wel).

Zo kan het ook.

Private Sub Workbook_Open()
 Application.Goto Sheets(1).Columns(4).Find(Format(Date, "dddd d mmmm yyyy"), , , xlWhole), True
End Sub

 

[ExcelAmateur]

Hsv,

Hartelijk bedankt voor de hulp.
Net gewijzigd en het werkt weer.:thumb::thumb: