Dim ans As Long
ans = MsgBox("This is the first message box, click Yes to get a second message box", vbYesNo)
If ans = vbYes Then MsgBox "This is the second message box"
so this has to be in it's own sub? my original msgbox was in a Private Sub Worksheet_Change(ByVal Target As Range).
I am just trying to have the yes selection generate an additional msgbox with another question that would result in different actions.
Dim MsgTitle, MsgPrompt As String, Ret As Integer
If Not Intersect(Target, Range("B12")) Is Nothing Then
Application.ScreenUpdating = False
MsgPrompt = "Is this either a New Task, or a Technical Change?"
MsgTitle = "Possible Engineering Review Required"
If Sheet1.[B12].Value <> "" Then
Ret = MsgBox(MsgPrompt, vbYesNo, MsgTitle)
If Ret = vbNo Then
Sheet8.CheckBox1.Value = True
Sheet8.CheckBox2.Value = True
MsgBox "verify (Review Not Required) Boxes are checked on lines 1 and 2 of SA20045 form"
Sheet7.Visible = xlSheetVeryHidden
MsgBox "Ensure SA20044 Form is included with deliverable"
Sheet8.CheckBox1.Value = False
Sheet8.CheckBox2.Value = False
Sheet7.Visible = True