Event Handling

[ElvisSteel]

Hi,

I have a worksheet that is not responding to worksheet events as I expect. Code is as follows...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E4:P4")) Is Nothing Then
MsgBox "New Cell Selected"
End If
End Sub

I've check that EnableEvents is True, and tried the other options such as BeforeRightClick, Change etc, but none of them trigger the code.

Have I overlooked something obvious?
I've used this type of code on loads of other sheets and it works fine, so I assume I'm doing something basic wrong here

Thanks

Steve

 

[jbeaucaire]

The code is correct:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E4:P4")) Is Nothing Then _
        MsgBox "New Cell Selected"
End Sub

1) Make sure it is in the SHEET module, not a regular module
2) Save your workbook as a macro-enabled workbook
3) Close the file and close Excel, reopen

It works for me.

 

[ElvisSteel]

Thanks for your prompt reply, closing and reopening it seems to have worked.