I'm having trouble naming a range with this code.
B1 to D7 is selected.
r1 = 1
A1 = "950"
Why isn't this working?

ActiveWorkbook.Names.Add Name:=Range("A" & r1).Value,
RefersTo:=Selection.Address


Thanks.