Dynamic Cell setup (Based on click to copy)- Error 91

[Sinvoid]

So here is my code

Sub Worksheet_SelectionChange(ByVal Target As Range) 'single click version 
 Range("J3:J32").Interior.Color = RGB(200, 160, 35)
 Range("K3:K3").Interior.Color = RGB(200, 160, 35)
 
    If Intersect(Target, Range("J3")) Or Intersect(Target, Range("J4")) Is Nothing Then Exit Sub
    ActiveCell.Copy


     
End Sub

The If statement line gives me a 91 error. Simply right now i'm trying to allocate several squares in the sheet to be cells that when clicked will copy to your clipboard automatically. I can do 1 range easy but now i need to make it a little more advanced.

 

[Snakehips]

Sinvoid,

Welcome to the forum.

Try...

If Intersect(Target, Range("J3")) Is Nothing Or Intersect(Target, Range("J4")) Is Nothing Then Exit Sub

Hope that helps.

 

[Sinvoid]

Sinvoid,

Welcome to the forum.

Try...

If Intersect(Target, Range("J3")) Is Nothing Or Intersect(Target, Range("J4")) Is Nothing Then Exit Sub

Hope that helps.

So that removed my error however that created the situation where either of the blocks will not copy unless both are highlighted simultaneously. Which seems odd because it's OR and not AND that connects them.

 

[Snakehips]

Your code currently colours J3:J32 and K3
Then unless J3 AND K3 are selected, it will exit the sub and not copy.

If you want it to copy either J3 or J4, or both then you must have

If Intersect(Target, Range("J3")) Is Nothing And Intersect(Target, Range("J4")) Is Nothing Then Exit