Using the Quit Event : Application Events « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. Application Events

Using the Quit Event

 
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

 

Related examples in the same category