Try thisActiveWorkbook.Names.Add Name:="testname", RefersTo:=Range(Range("A2"),Range("A2").End(xlDown))