There was a typo

'now name it, bur has run-time error '1004', the name is not valid

ActiveSheet.Names.add Name:= v, RefersToR1C1="""=" & ActiveSheet.Name
& "!" & v & """", Visible:=True


with ActiveSheet
.Names.add Name:=v, RefersToR1C1="""=" & .Name & "!" &
rng.AddressLocal & """", Visible=True
end with