Msgbox not comming up

[Wouldsman]

I have added the following code.

Please Login or Register  to view this content.

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.

[Gatti]

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

[karedog]

It should be :

Private Sub Worksheet_Change(ByVal Target As Range)

and not :

Private Sub Worksheet_Change2(ByVal Target As Range)

[Wouldsman]

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.

[karedog]

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

Please Login or Register  to view this content.

[Gatti]

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

[Wouldsman]

Changing that gives me a Type mismatch

[Gatti]

Could you please post the workbook or a sample?

[JaguerRhye]

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

[karedog]

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.

[Wouldsman]

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

[Wouldsman]

Here is a sample of the Excel file.

[Wouldsman]

Sorry
The code in question is Sheet1(Sheet1) [Change under code in question]

Looks like I deleted contents of cell F7 should read (( F8-F6 ))

[karedog]

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

Please Login or Register  to view this content.

Your code should be something like this :

Please Login or Register  to view this content.

[Wouldsman]

No nothing.
Like there is no code even there?

[karedog]

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.

[Wouldsman]

Any other thoughts?

[Wouldsman]

Karedog,

Any other thoughts?

I thought it may have worked one time but it was a flash and gone.
Now nothing.

[Wouldsman]

Karedog,

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

Please Login or Register  to view this content.

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.

[karedog]

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.

[Wouldsman]

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

[karedog]

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.

[scottiex]

Sorry duplicate post

[scottiex]

Maybe you just want worksheet_change and to pull the msg even when you the target is another cell. (so you get the message even when you are clicking off the cell).

Please Login or Register  to view this content.

[Wouldsman]

Thanks to both of you it is working now.

[scottiex]

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?