Excel VisualBasic Script

Sub names()
    Workbooks("your.xls").Names.Add Name:="myRange", _
            RefersTo:="=Materials!$A$1:$G$22"
End Sub