Datumsabfrage

folgender Code sucht das aktuelle Datum im Tabellenblatt Monat
und setzt den Cursor auf die Zelle.

Private Sub Workbook_Open()
Dim heute As Date
Dim z As Double
z = 1
heute = Sheets("Monat").Range("B4").Value
Sheets("Monat").Select
Do Until heute = Cells(z, 3).Value
z = z + 1
Loop
Sheets("Monat").Cells(z, 7).Select
End Sub

Möchte jetzt, wenn das aktuelle Datum nicht gefunden wird, das der
Cursor in Zelle C3 springt.
Hoffe es kann mir jemand helfen.
Vielen dank schon im Voraus.

Gruß Heinrich