How to select nonadjacent difiened names at once?

p45cal · #1 01-09-2024, 04:57 AM

likewise not sure but maybe

Code:

  Set rng = Selection
  Set rng0 = Range("range1")

  For i = 2 To 100
    Set rng0 = Union(rng0, Range("range" & i))
  Next i
 
  Union(rng, rng0).Select

or perhaps

Code:

  Set rng = Selection
  Set rng0 = Range("range1")

  For i = 2 To 100
    Union(rng0, Range("range" & i)).Select
  Next i

soroush.kalantari · #2 01-09-2024, 08:19 PM

Quote:

Originally Posted by p45cal

likewise not sure but maybe

Code:

  Set rng = Selection
  Set rng0 = Range("range1")

  For i = 2 To 100
    Set rng0 = Union(rng0, Range("range" & i))
  Next i
 
  Union(rng, rng0).Select

@p45cal .Thank you very much. First code solved the problem.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing microsoft build-in style names - display of style names in styles gallery changed	Firebody	Word	8	03-06-2022 08:22 AM
Select entire text and then de-select certain Headings?	tq94	Word	3	02-26-2022 03:47 AM
Address sheet - I have an address sheet, I want to create and add names from a database of names.	moscowamerican	Mail Merge	1	09-12-2020 07:31 AM
matching names in column A with names in column C	bob999999	Excel	1	04-28-2013 11:21 AM
How to enter names in Resource Pool/names	pstein	Project	1	03-26-2012 07:37 AM