I placed a question, but got no answer, so I think it is better to split the problems.
With the code
Sub GaNaarKolomVandaag() Dim c As Range For Each c In Range("O1:NS1") If c = Now() Then ActiveWindow.ScrollColumn = c.Column Exit Sub End If Next c End Sub
I try to go to the column with date today in the first row.
I prefer that the column with date today should be the first row next to the blocked title column.
But the macro does not work.
Can somebody help?