Worksheet_Change with named range

[mikeymay]

I have a named range 'DailyDB_Crew' which consists of a non contiguous range - K28:K35, R28:R35, K44:K51, R44:R51

If any of these cells are selected I would like the Worksheet_Change or similar to execute so a userform can be displayed.

I hoped that

If Not Intersect(Target.Address, Range("DailyDB_Crew").Address) Then
    Exit Sub
    Else
    'user form code'
End If

would have worked but bugs out before starting.


Thanks

 

[Andrew Poulsom]

Try:

If Application.Intersect(Target, Range("DailyDB_Crew")) Is Nothing Then

 

[Snakehips]

mikeymay,

.Address creates a string.
Named range is effectively the range address.
Target is by definition a Range.
Plus need to establish if the intersection exists by compare to Nothing

Try....

If Not Intersect(Target, Range("DailyDB_Crew")) Is Nothing Then
    Exit Sub
    Else
    'userform code
End If

Hope that helps.

 

[mikeymay]

Thanks Andrew!