Loop through cells and add to union(range)

[mp3909]

I have these values in my excel spreadsheet from A1:C6

1 6 1
2 2 6
3 34 2
4 5 4
5 1 6
6 5 5


I am using the vba code below to select all cells with 6:

Please Login or Register  to view this content.

but newRng.select is only selecting one cell and that is B1.
What am I doing wrong?

[xlnitwit]

Hi,

You missed a Set

Please Login or Register  to view this content.

[CK76]

When you have more than 1 column in range that you are looping, you should specify .Cells object of range.

Please Login or Register  to view this content.

Also since you declared newRng as range object, you should Set newRng instead of just newRng = xxxx.

So your code becomes...

Please Login or Register  to view this content.

[mp3909]

thank you - its working now