sintassi:
ActiveWorkbook.proprietà
ActiveWorkbook.Names.comando

proprietà:

• .Name Nome
• .RefersTo riferimento

esempio: verifica tutti i nomi delle celle e cancella quelli con riferimenti esterni
For Each nome In ActiveWorkbook.Names

If InStr(nome.RefersTo, "[") > 0 Then

ActiveWorkbook.Names(nome.Name).Delete

End If

esempio: verifica tutti i nomi delle celle e cancella quelli con errore REF
For Each nome In ActiveWorkbook.Names

If InStr(nome.RefersTo, "#REF!") > 0 Then

ActiveWorkbook.Names(nome.Name).Delete

End If

comandi:

• .Add aggiunge un nome cella al file

sintassi:
ActiveWorkbook.Names.Add Name:="nomecella", RefersTo:="=scheda!indrizzo cella"
il nome della cella non può contenere spazi

esempio: assegno ad A1 in Foglio1 il nome cella_testo
ActiveWorkbook.Names.Add Name:="cella_testo", RefersTo:="=Foglio1!$A$1"

se la scheda ha uno spazio nel nome va messo tra ' '

ActiveWorkbook.Names.Add Name:="cella_testo", RefersTo:="='Foglio 1'!$A$1"

esempio: assegno alla selezione in automatico il nome delle celle dal valore stesso
Dim X As Range
For Each X In Selection

ActiveWorkbook.Names.Add Name:=X.Value, RefersTo:="=" & ActiveSheet.Name & "!" & X.Address

Next X

se il nome della scheda ha uno spazio va creato il riferimento a parte

riferimento = "'" & ActiveSheet.Name & "'!" & aR.Address
ActiveWorkbook.Names.Add Name:=nomecella, RefersTo:="=" & riferimento



• modifica nome (senza aggiunge)
per modificare, non aggiugerne un'altro, un nome di una cella nel file su usa la seguente sintassi

sintassi:
With ActiveWorkbook.Names("NOME ATTUALE CELLA")

.Name = "NUOVO NOME CELLA"
.RefersTo = "=INDRIZZO"
.Comment = "eventale commento"

End With

esempio: modifico il nome della cella F1 da CellaVecchia a CellaNuova
With ActiveWorkbook.Names("CellaVecchia")

.Name = "CellaNuova"
.RefersTo = "='Foglio 01'!$F$!"
.Comment = "eventale commento"

End With


• .Delete cencella il nome dal foglio

sintassi:
ActiveWorkbook.Names("NOME CELLA").Delete