ActiveWorkbook.Names.Item(" YOUR HELP ").PLEASE

[Grizlore]

Right Guys, having a slight problem.

I need to name some cells to allow listing in a list via validation. I'll add a "=Unique" with the list properties of a cell, anyway.....I can get this to work be simply highlighting them and then naming them, but i would like to do this via VB, to allow for updates etc.

Firstly I had a problem as i couldn't overwrite or change what i had originally done.
I fixed that with this at the start of my code

ActiveWorkbook.Names.Item("Unique").Delete

BUT.... Even though the next VB selects the cells i want....

    Range("A2").Select
             Range(Selection, Selection.End(xlDown)).Select

To selected cells are not 'named', only the original cells are named and not the ones which have been added.
Here is my full code so far...

ActiveWorkbook.Names.Item("Unique").Delete

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names.Add Name:="Unique", RefersToR1C1:= _
        "='Glue Weights'!R2C1:R9C1"

I know this is likely to be something to do with Relative Cell Ref's etc, but either with Relative turned on or off... I can't sort it!!!

Could anyone help please?

 

[Norie]

sly

You aren't actually using the selection when trying to create the name.

Range(Range("A2", Range("A2.End(xlDown)).Name = "Unique"

 

[Grizlore]

Thanks Norie

This is the trouble with being self taught.... those little things which seem so obvious once you know them..... pass you by

Many Thanks

 

[Grizlore]

sly

You aren't actually using the selection when trying to create the name.

Range(Range("A2", Range("A2.End(xlDown)).Name = "Unique"

My finished code is a follows

ActiveWorkbook.Names.Item("Unique").Delete
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Name = "Unique"

I couldnt get it to work exactly as you have written it, however MANY THANKS!!!!!!!