Msgbox not comming up

Karedog,

I started a new workbook and entered the following into "WorkSheet"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$F$7" And Target.Value > 3 Then
        MsgBox "Numbers may not exceed 3"
        Application.Goto Reference:=Range("F7"), Scroll:=False
    End If

Continue:
    Application.EnableEvents = True

End Sub

And if I enter a number larger than 3 (into F7)and press enter nothing
But if I now reselect cell F7 it works.
But if have to return manually to F7 every time to make it work.