Wat doet de volgende code juist

[davylenders123]

Kan mij iemand helpen met te zeggen wat deze code doet .

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date, "d/m"), , xlValues, xlWhole).Column
End Sub

Deze code staat in vba this workbook in een bestandje van mij maar weet helemaal niet meer voor wat deze code er staat.

Heb ze al eens weggehaald maar zie dan niks abnormaal.
Daarom stel ik de vraag hier maar eens aan de krakken in dit.

 

[Warme bakkertje]

Deze code zoekt in rij 4 naar de datum van vandaag (in een bepaald formaat dag/maandnummer) en maakt dan de kolom waar deze datum gevonden wordt,de meest linkse kolom op je werkblad. Deze code wordt geactiveerd telkens je van werkblad wisselt.

 

[davylenders123]

Bedankt voor je snel reactie :thumb:

En juist dat is wat de code doet .