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.

Did you DEBUG the code to check why it is resulting FALSE in the If statement?

This Sheets("Sheet1").Select opens other sheet then the Worksheet_Change2?

Cause you are changing the sheet after a worksheet change routine

It doesn't make much sense...

Post the workbook here, if possible

It should be :

Private Sub Worksheet_Change(ByVal Target As Range)

and not :

Private Sub Worksheet_Change2(ByVal Target As Range)

I have removed the 2 from Private Sub Worksheet_Change2(ByVal Target As Range)

And I did try to DEBUG the code it is not showing any errors but still the code is not working either.

Maybe you accidentaly disable event, put the code below to normal module and run it, and see if this can fix it :

Sub EnableEvent()
  Application.EnableEvents = True
End Sub

Wouldsman... the problem probably isn't an error... the IF statment probably is resulting FALSE, then it doesn't run into msgbox code

Do you know whether the line of code for MsgBox is even getting executed?

If not, maybe try removing one of the conditions to see if it makes any difference. One of the conditions could be generating unexpected results etc.

i.e.

If Target.Address = "$F$7" Then
MsgBox "Numbers may not exceed 3"
Application.Goto Reference:=Range("F8"), Scroll:=False
End If

Changing that gives me a Type mismatch

Originally Posted by Wouldsman

Changing that gives me a Type mismatch

That means, Excel starting to catch the event now, but somehow the datatype is mismatch, as the error says (such as enter formula =1/0 on cell F7).
As others say, please upload the sample file, so we can examine it.

Could you please post the workbook or a sample?

I make up a sample file tomorrow morning and post it.
Thanks for all the help thus far.

Here is a sample of the Excel file.

You put the issue code (green) after "Exit Sub" (red) statement, of course, they will never be executed.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler

    Application.EnableEvents = False

    If Not Intersect(Target, Range("F4")) Is Nothing Then
        If Not IsNumeric(Range("F4").Value) Then
            MsgBox "Numbers only NO TEXT ALLOWED" & vbCrLf & "" & vbCrLf & "Only one Part Number per Request"
            Application.Undo
                  Sheets("Sheet1").Select
                  Range("F4").Select
                 Range("F4:J4").Cells.ClearContents

            GoTo Continue

        End If

            End If

Continue:
    Application.EnableEvents = True
    Exit Sub
ErrorHandler:
    MsgBox Err.Description
    Resume Continue


    '
    '
    'Code in question ????????????????????????????????????????????????????????????????????
    '
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
'??????????????????????????????????????????????????????????????????????????????????????????
' Code refers to Sheet1 Cell F7 which is the difference between the (date requested and the date needed).
'
'


End Sub

Your code should be something like this :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler

    Application.EnableEvents = False

    If Not Intersect(Target, Range("F4")) Is Nothing Then
        If Not IsNumeric(Range("F4").Value) Then
            MsgBox "Numbers only NO TEXT ALLOWED" & vbCrLf & "" & vbCrLf & "Only one Part Number per Request"
            Application.Undo
            Range("F4").Select
            Range("F4:J4").Cells.ClearContents
            GoTo Continue
        End If
    End If

    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

Continue:
    Application.EnableEvents = True
    Exit Sub
ErrorHandler:
    MsgBox Err.Description
    Resume Continue
End Sub

No nothing.
Like there is no code even there?

Here, I have upload the workbook to test.

First, run (Press Alt F8) Sub EventEnabler() to make sure the event trapping is enabled.

Then, the worksheet_change event should worked.

Any other thoughts?

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.

Have you tried to open and run my attachment on post #16, and run the Sub EventEnabler ?
What is the result ? Or do you just copy and paste the code to your own file ?

As your code on post #19, you put the code in Worksheet_SelectionChange() event, that's why it is triggered only if you select the cell (F7).
You should put it inside Worksheet_Change() event.

I have tried that one (post #16) it flashed a message "to quickly to really see" and will not work a second time.

Now, it's strange. By examing all the code in your file, the only possible "flash message" is a MsgBox window, but the MsgBox window cannot close itself by code.
I suspect there is a software in your computer that do this, or an Excel addin, or a macro in your Personal.xls file. Could you try to open dan run myfile (in post #16) in other computer(s) ? It is run very well on my PC.

Thanks to both of you it is working now.

Good to hear.
Does that mean you used my code? Or did you find another solution like maybe an underlying issue as per karedog's suggestion?