Excel VisualBasic Script

Sub nameRef()
     Worksheets("Sheet1").Names.add name:="Costs", RefersTo:="=Sheet1!$F$10:$F$12"
End Sub
'Using the Name Property of the Range Object
Sub name()
     range("A1:D10").name = "SalesData"
End Sub