create a global name that refers to a range using the Add method of the Workbook object's Names collection
Sub add() Names.add name:="Data", RefersTo:="=Sheet1!$D$10:$D$12" End Sub