In diesem Beispiel wird ein neuer Name für den Bereich A1:D3 in Sheet1 definiert.
ActiveWorkbook.Names.Add _ Name:="tempRange", _ RefersTo:="=Sheet1!$A$1:$D$3"