Creating range name for a range selection

[Mervyn Thomas]

My existing code is a bit predetermined as in the example:

ActiveWorkbook.Names.Add Name:="CodeLookup",
RefersToR1C1:="=CostCodes!R1C2:R200C8"

I can't figure out how to change this to refer to the current region
selection such as:

ActiveWorkbook.Names.Add Name:="CodeLookup", RefersToR1C1;= current
selection

Mervyn

 

[John Wilson]

Mervyn,

Try this out:

Range("A1").CurrentRegion.Name = "TestRange"

John