Prompt message when workbook is opened on particular date

[hocs]

Hi, i would like to have message prompted to reming user doing backup whenever the workbook is opened from 28 til the last day of the month (30th or 31st depending on which month). wha's the correct code for "date"?

Private Sub Workbook_open()
If Date>=28 Then
Msg = "Remember to do monthly backup!"
MsgBox Msg, vbInformation
End If
End Sub

What's the correct way to express Date>=28 above?
Thanks!

 

[GTO]

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()<br>    <br>    <SPAN style="color:#00007F">If</SPAN> Day(Date) >= 28 <SPAN style="color:#00007F">Then</SPAN><br>        MsgBox "Yo, rent is due!!!"<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

Hope that helps,

Mark

 

[hocs]

It works well! Thanks GTO!