|
Sub Application_Quit()
Dim strMessage As String
Select Case Format(Date, "MM/DD/YYYY")
Case "01/13/2006"
strMessage = "Next Monday is Martin Luther King Day."
Case "02/17/2006"
strMessage = "Next Monday is Presidents Day."
Case "05/26/2006"
strMessage = "Next Monday is Memorial Day."
Case "06/30/2006"
strMessage = "Next Tuesday is Independence Day." & _
" Monday is a company holiday."
Case "09/01/2006"
strMessage = "Next Monday is Labor Day."
'other National Holidays here
End Select
MsgBox strMessage, vbOKCancel + vbExclamation, "Don't Forget..."
End Sub
|