Sub Workbook_Open()
Dim Msg, Style, Title
Msg = "Please note that this information might be confidential and should therefore only be shared with clients after careful consideration."
Style = vbOKCancel + vbExclamation + vbDefaultButton1
Title = "Attention"
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
MyString = "OK"
Else
MyString = "Cancel"
ActiveWorkbook.Close
End If
End Sub |