Sub
Use_a_cane()
Const
name_refers_to
As
String
=
"=Overview!Rvar_startC30:INDEX(Overview!Rvar_startC30:Rvar_endC30,LOOKUP(2,1/(Overview!Rvar_startC30:Rvar_endC30<>"
""
"),ROW(Overview!C30)),1)"
Dim
addstart
As
String
, addend
As
String
Dim
AddName
As
String
, AddRefersTo
As
String
addstart =
"25"
: addend =
"65"
AddName =
"test"
AddRefersTo = Replace(name_refers_to,
"var_start"
, addstart)
AddRefersTo = Replace(AddRefersTo,
"var_end"
, addend)
ActiveWorkbook.Names.Add Name:=AddName, RefersToR1C1:=AddRefersTo
End
Sub