Define Name in active cell

[Danny]

Hi,

I try to define names in some cells. However, when I add data and sort the
workbook, the Defined names are moved. In the sample below, the defined name
will always be at Row 17 Column 4.

How can I reference to the "Defined Name" alone?

Thanks

Range("D17").Select
ActiveWorkbook.Names.Add Name:="nmnm", RefersToR1C1:="=Sheet1!R17C4"