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