Multiple if intersect(target, range... with worksheet selection change

[Chewyhairball]

Hi

Is it possible to get multiple

If Intersect(Target, Range("my range")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

within a worksheet selection change event?

I have the following but which ever one if first is the only one that works.

If Intersect(Target, Range("H10:H2000")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
MsgBox "my message"

If Intersect(Target, Range("K10:K2000")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Call mymacro

 

[Joe4]

I would restructure it like this:

Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("H10:H2000")) Is Nothing Then
    MsgBox "my message"
Else
    If Not Intersect(Target, Range("K10:K2000")) Is Nothing Then
        Call mymacro
    End If
End If

 

[Chewyhairball]

I would restructure it like this:

Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("H10:H2000")) Is Nothing Then
    MsgBox "my message"
Else
    If Not Intersect(Target, Range("K10:K2000")) Is Nothing Then
        Call mymacro
    End If
End If

Cool! I’ll give it a go when I’m back at my PC and let you know

 

[dmt32]

another way maybe

If Target.Cells.Count > 1 Then Exit Sub
    
    With Me.Range("H10:H2000,K10:K2000")
        If Not Intersect(Target, Me.Range(.Address)) Is Nothing Then
            If Not Intersect(Target, .Areas(1)) Is Nothing Then MsgBox "my message" Else MyMacro
        End If
    End With

Dave

 

[Chewyhairball]

Thanks guys. Both worked perfect and iv gone with Joe4's. Both will be stored in my useful macros folder though

thanks again

 

[Joe4]

You are welcome.
Glad we could help!