Here is the Create Name code:

ActiveWorkbook.Names.Add Name:=Sheets("Settings").Range("B1").Value,
RefersTo:=Range(Sheets("Settings").Range("B2"),
Sheets("Inställningar").Range("B65536").End(xlUp))

Where the cell B1 contains the name "type".

This means that i got a named range called type containing the cells B2
to the end of the column that have text. this works perfectly... now
the question.


I want to replace this: (this is the question)

UF.combTYP.List = Range(Sheets("Inställningar").Range("B2"),
Sheets("Inställningar").Range("B65536").End(xlUp)) .Value
with this
UF.combTYP.List = Range("type")
or this
UF.combTYP.List = Range("type").value
or this
ActiveWorkbook.Names("Typ").Value
or this
ActiveWorkbook.Names("Typ").RefersToRange

But nothing works...
Please help

UF = User form
combTYP = the combobox