Pop-up message when opening file when date criteria is met

[TimeFlies1074]

How do I create a pop-up that appears when a file is opened if today's date is beyond a set date of the year? In other words, when today's date is after December 15, 2018, the pop-up message should appear when opening said file.

 

[Tetra201]

Try placing the following sub in ThisWorkbook code section and saving the file as *.xlsm:

Sub Workbook_Open()
    Dim x As Date
    x = #12/15/2018#
    If Date > x Then MsgBox "Today's date is past " & Format(x, "mmmm d, yyyy"), vbInformation
End Sub

 

[TimeFlies1074]

Thank you!