Msgbox bei Datumablauf

Private Sub Workbook_Open()
Dim rngZelle As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Personal")
For Each rngZelle In wks.Range("K3:K200")
If CDate(rngZelle.Value) = Date Then
MsgBox "Bei " & rngZelle.Offset(, -8).Value & " läuft der Arbeitsvertrag heute aus ! _
_
", vbInformation, "Arbeitsvertrag!"
End If
Next rngZelle
Set wks = Nothing
End Sub