Define a name by hard code the cell address
Sub DefineName1a() ActiveWorkbook.names.Add Name:="NameArea", RefersToR1C1:="=sheet1!R1C1:R3C1" End Sub