Range as Target Address

[hansgrandia]

Hello,

Is there a possibility to have a range of cell instead of a single cell as target address below?
Thank you,
Hans (The Netherlands)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
Call GoToName
End If
End Sub

 

[wigi]

Bijvoorbeeld:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B4:B10")) Is Nothing Then
        Call GoToName
    End If
End Sub

 

[hansgrandia]

Thanks!