Autoname a range

[CLB]

Thanks in advance.

Is it possible to automate the naming of a range, say of a table, as say the
intersection of the row and column headers?

 

[paul.robinson]

Hi
Try this

ActiveWorkbook.Names.Add Name:=Selection.Cells(1, 1).Text,
RefersTo:=Selection.Address

The row and column headers are assumed to be in the first row and
column (the Cells(1,1) bit). You can replace Selection with a range
object if you require.

regards
Paul

 

[Bob Phillips]

Assume the variable rng points at the table

rng.Name = rng.Cells(1,1,).value