Problem displaying a UserForm

[Pats]

Can anyone tell me why this code is not displaying my UserForm?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("D7:Y7000")) Is Nothing Then
UserForm2.Show
End If


End Sub

 

[Bob Phillips]

Are you changing anything in that range, as against just selecting it?

 

[Pats]

Just selecting it

Are you changing anything in that range, as against just selecting it?

--
__________________________________
HTH

Bob

 

[Rick Rothstein]

Another possibility... did you by any chance turn off events during your
coding session (either accidentally or on purpose)? Try executing this
statement in the Immediate window and see if that straightens things out...

Application.EnableEvents=True

 

[Pats]

I also tried creating a general decleration module

Public bSELCTIONCHANGE As Boolean

and adding the line :

If bSELCTIONCHANGE Then to my code

 

[Bob Phillips]

Then try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("D7:Y7000")) Is Nothing Then
UserForm2.Show
End If


End Sub