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

On Sep 23, 7:25*am, CLB wrote:
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?