How to run a macro when any cell in a specified range is selected?

[cfunk]

I tried this code, but it doesn't work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = Range("D8", "R58").Address Then Call Macro1
End Sub

It only works when the range is a single cell, like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = Range("D8").Address Then Call Macro1
End Sub

Thanks!

 

[offthelip]

trythis;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = Range("D8").Address Or Target.Address = Range("R58").Address Then Call Macro1
End Sub

 

[BSALV]

if you want the whole range instead of 2 single cells

 If not intersect(Target,Range("D8:R58")) is nothing  Then Call Macro1

 

[cfunk]

if you want the whole range instead of 2 single cells

 If not intersect(Target,Range("D8:R58")) is nothing  Then Call Macro1

This is the solution. Thanks!