Hello, I've been searching the forum to help me with my problem.
I've managed to put a code together using the tips I have found on the forum. However, if I continue working the message keeps popping up.
How do I make it stop?
Thanks in advance.
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect Password:="PSWRD"
'Application.ScreenUpdating = False
If Range("E19").Value = "x" Then
If MsgBox("You have selected X." & vbNewLine & _
"" & vbNewLine & _
"Do you wish to continue?", vbYesNo, "Select X") = vbNo Then Exit Sub
End If
If Range("E19").Value = "y" Then
If MsgBox("You have selected Y." & vbNewLine & _
"" & vbNewLine & _
"Do you wish to continue?", vbYesNo, "Select Y") = vbNo Then Exit Sub
End If
I've managed to put a code together using the tips I have found on the forum. However, if I continue working the message keeps popping up.
How do I make it stop?
Thanks in advance.
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect Password:="PSWRD"
'Application.ScreenUpdating = False
If Range("E19").Value = "x" Then
If MsgBox("You have selected X." & vbNewLine & _
"" & vbNewLine & _
"Do you wish to continue?", vbYesNo, "Select X") = vbNo Then Exit Sub
End If
If Range("E19").Value = "y" Then
If MsgBox("You have selected Y." & vbNewLine & _
"" & vbNewLine & _
"Do you wish to continue?", vbYesNo, "Select Y") = vbNo Then Exit Sub
End If