Excel VisualBasic Script

Sub localDemo()
     Names.add name:="Sheet1!Sales", RefersTo:="=Sheet1!$E$10:$E$12"
End Sub