Msgbox not comming up

I have added the following code.

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

But it is not working. I am not getting a Msgbox or is it selecting F8.
My guess is I have a typo as I have used code very much the same before and it worked well.
Any help will be much appreciated.