VBA Code Not working?

I am having trouble with a line of code I wrote...Under the Selection Change Sub I have written:

Dim Ans as integer
If Not IsEmpty(Target) Then
Ans = MsgBox("Do you wish to change your order?", vbYesNo, "Change Order?")
    Select Case Ans
        Case Yes
            Target.Activate
        Case No
            Cells(NextItem, 2).Activate
    End Select
End If

NextItem is a user variable I set to just be a countA+1 as in a new order

However "Case No" is not responding and the target is just activated anyways? Is this code wrong?