Veranderen naam via VBA

[rg027]

Is het mogelijk om via VBA de naam van de cel of cellenbereik te veranderen naar de waarde die in de cel word ingegeven. VB in cel A1 typ ik adres dan zou de naam van a1 moeten veranderen in Adres. Typ ik telnr dan moet de naam adres vervangen worden door telnr en mag niet meer in de lijst namen voorkomen (lijst namen is te raadplegen via het menu invoegen>>naam>>definieren. Hier zou de vorige naam niet meer mogen voorkomen)
alsvast dank

 

[brandernl]

Je kan met deze code wel automatisch een naam toevoegen
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:=Range("A1").Value, RefersToR1C1:="=Blad1!R1C1"
End Sub

Maar ik zie dat de "oude" blijft bestaan.
En (hardop denkend) de macro gaat pas werken als je op enter drukt.
Hoe moet VB dan weten wat de vorige naam was?
Iemand een idee?