msgbox if todays date is past date in cell

Hey,

When opening a workbook, I want a msgbox to pop up, if todays date is past the date in date in cell c4.
I tried the formula beneath, but it gives me the msgbox nomatter if the condition is met or not.
Thanks in advance for your help and effort.

Private Sub Workbook_Open
With Sheets("Main")
If Range("c4") < Date Then
MsgBox "Workbook has expired", vbOKOnly
Else
Exit Sub
End If
End With

End Sub

try this:

Private Sub Workbook_Open()
    If Sheets("Main").Range("c4").Value < Date Then
        MsgBox "Workbook has expired", vbOKOnly
    End If
End Sub

This is all you need to be honest

Private Sub Workbook_Open
With Worksheets("Sheet1")
    If Date > .Range("C4") Then MsgBox "Workbook has expired", vbOKOnly
End With
end sub