Excel VisualBasic Script

Sub DefineName1a()
  ActiveWorkbook.names.Add Name:="NameArea", RefersToR1C1:="=sheet1!R1C1:R3C1"
End Sub