Excel VisualBasic Script

Sub add()
     Names.add name:="Data", RefersTo:="=Sheet1!$D$10:$D$12"
End Sub