In cell B4, when someone has entered text in this cell and they press either return or enter, I want a message box to appear with a yes or no option. If they click NO I want B8 to become deselected, if they click YES i want cell B6 to be deselected. This is the code I have which is set up in a module
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Response = MsgBox("Is this a new listing?", vbYesNo)
Select Case Response
Case Is = vbNo
Exit Sub
Case Is = vbYes
Range("B6").Select
Exit Sub
End Select
End Sub
Can anyone see the obvious mistake, why nothing at all happens ??
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Response = MsgBox("Is this a new listing?", vbYesNo)
Select Case Response
Case Is = vbNo
Exit Sub
Case Is = vbYes
Range("B6").Select
Exit Sub
End Select
End Sub
Can anyone see the obvious mistake, why nothing at all happens ??