How to select nonadjacent difiened names at once?

[soroush.kalantari]

I have written following code to select some nonadjacent difined names plus a user selected range at once (see the Excel attachment. It give error at “Range("""" & Range("range" & i).Address(0, 0) & "," & rng0.Address(0, 0) & """").Select” line. Can you give me some guides on this issue?

Sub selectnonadjacentdinfinedname()
Dim i As Integer
Dim rng As Range
Dim rng0 As Range


Set rng = Selection
Set rng0 = Range("range1")
For i = 2 To 100
Range("""" & Range("range" & i).Address(0, 0) & "," & rng0.Address(0, 0) & """").Select
Set rng0 = Selection
Next i
Range(rng, rng0).Select
End Sub

[Guessed]

I'm not sure on the purpose of this macro but your loop might work with

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

[soroush.kalantari]

Originally Posted by Guessed

I'm not sure on the purpose of this macro but your loop might work with

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

Thank you for your reply. The purpose of this code is to select some nonadjacent defined names which has be named range1, range2 and so on plus a user selected range. (see the attached picture, in which if active cell be A5 and defined names ranges be the colored ranges, the macro is expected to select the colored ranges and A5.)
Your code don’t work like this. (it selects also the cells between defined names, for example A9)

[p45cal]

likewise not sure but maybe

  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

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

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

[soroush.kalantari]

Originally Posted by p45cal

likewise not sure but maybe

  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.