Try this:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e7:e61")) Is Nothing Then
'DO YOUR STUFF
End If
End Sub

Mike

" wrote:

Hi,

is it possible to change/specify the procedure "Worksheet_Change(ByVal
Target as Range)" in an worksheet to a specified Range of Data, for
example E7:E61 (Worksheet_Change("E7:E61") ?

greets