I also tried creating a general decleration module

Public bSELCTIONCHANGE As Boolean

and adding the line :

If bSELCTIONCHANGE Then to my code



"Pats" wrote:

Just selecting it

"Bob Phillips" wrote:

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

--
__________________________________
HTH

Bob

"Pats" wrote in message
...
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