Microsoft Office Forums - View Single Post - How to select nonadjacent difiened names at once?

p45cal · 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