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

--
__________________________________
HTH

Bob

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