Zeile markieren

Hallo

Geht Folgendes als bedingte Formatierung:

Wenn B3 = das heutige Datum ist, dann springe beim starten der Datei auf die entsprechende Zeile, bzw die Nummerierung vor A3?

Danke im Voraus?

Geht das überhaupt?

Private Sub Workbook\_Open()
' by [email protected]
' for wer-weiss-was user
Dim Zeilenanzahl As Integer
Dim Sucheanfang As Integer
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sucheanfang = 1
Do While Sucheanfang