why does it create a named range?

[ndendrinos]

Because of the number of cells I had to incorporate in a named range I broke same into four then to run it I use this:

Sub search()
Application.Union([searchone], [searchtwo], [searchthree], [searchfour]).Name = "searchall"
Dim i As Long
Dim rngCell As Range
i = 1
For Each rngCell In [searchall]
  rngCell.Value = Range("toplistall")(i)
  i = i + 1
Next
End Sub

Before I run the code I look at my named ranges and there is no "searchall"
After I run the code a new named range is created named "searchall"

When I look at it it has bits and pieces of the four named ranges in it but not a complete list of those cells.
The code works great but still I am curious.
Can anyone explain it?
As far as I can tell nothing in the code suggest the creation of this new named range (that's the way I read it anyway)
Many thanks

 

[Andrew Poulsom]

Your first line of code creates that name.

 

[ndendrinos]

Than you, can you explain then why the code works since the list of cells in it is incomplete?
or is it not necessary to the end result? and if it is how can I abort the creation of it?

 

[Andrew Poulsom]

If you don't want to create a name use a range object variable, eg:

Sub search()
    Dim searchall As Range
    Dim i As Long
    Dim rngCell As Range
    Set searchall = Application.Union([searchone], [searchtwo], [searchthree], [searchfour])
    i = 1
    For Each rngCell In searchall.Cells
        rngCell.Value = Range("toplistall")(i)
        i = i + 1
    Next
End Sub

Sorry I don't know what you mean by "the list of cells in it is incomplete".

 

[ndendrinos]

I think I've got it now.
I can get rid of the first four named ranges and just keeps the one titled:'searchall"
I see now that it is a complete representation of what's in the four after all.

 

[ndendrinos]

sorry was typing and did not notice your response.
this is what I meant by "the list of cells in it is incomplete".
When I first tried to put on one named range 131 cells I could not.
I decided to break them down in 4 "sub" named ranges and to make it work I use the code shown above.

I just noticed that indeed "searchall" indeed covers all the cells and not just few.
I will decide after running the code the first time to either delete the four and keep "searchall" or follow your advise and edit the code thus avoiding the creation of "searchall" in the first place.

Many thanks for your time