Hi

Maybe this will help you:

NameRange = Range("A1", Range("A1").End(xlDown)).Address
ActiveWorkbook.Names.Add Name:="MyRangeName", RefersTo:="=Sheet1!" &
NameRange

Regards,
Per


On 3 Nov., 02:07, Joe wrote:
I am extracting records, as part of a macro, from a list range on the
worksheet into a data named range. *At times the source table will be
increased or decreased in size and when I run the macro I want it to resize
the extracted name range. *How do I program this within the macro?