Find celle i Excel ark, igen.

Jeg har et Excel ark, hvor jeg har en kolonne med datoer fra nu af, og flere år frem.
Når jeg åbner arket bliver den celle der indeholder dags dato ( system dato ) fundet og markeret.

Jeg fik følgende kode af kabbak, som fungerer fint, undtagen når jeg beskytter arket.

Private Sub Workbook_Open()
Sheets("Ark1").Select
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
If Range("A" & i) = Date Then
Range("A" & i).Select
End If
Next i
End Sub

Kolonnen med datoerne er beskyttet.

Debuggeren markere følgende linie.
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row

I beskyttet tilstand af arket, er følgende 2 ting tilladt.
Marker ulåste celler
Formater celler