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