Ciao,
non avevo dubbi che l'unico che mi avrebbe potuto risolvere il problema fossi Tu!! :)))
La macro funziona alla perfezione, ma solo per una volta. Se aggiungo un'altra riga mi compare l'errore
Errore di run-time '1004'
Metodo 'Range' dell'oggetto '_Worksheet' non riuscito
l'istruzione che si colora di giallo è
x = Range("Riferimento").Row
Non riesco a capirne il motivo... perché aggiungendo un'altra riga il riferimento è comunque stato istruito a puntare sempre alla cella B14
Grazie assai, buona notte
eZio

Ciao,
purtroppo mi dà ancora errore...

Ecco la procedura che seguo:
1) nel foglio di lavoro (che è il Foglio8) seleziono la cella B13 (quella che m'interessa mantenere colorata anche dopo l'aggiunta righe sopra a quella cella) e click ds. > Inserisci nome intervallo > nel campo nome scrivo Riferimento1 > nel campo Ambito seleziono il foglio di lavoro (il Foglio8 che ho nominato FR-N) > nel campo Riferito a controllo che vi sia scritto ='FR-F'!$B$13 e poi dò l'OK
2) nella Gestione dei progetti VBA vado nel Foglio8 e nel modulo che compare copio, adattandola, la macro
Private Sub Worksheet_Change(ByVal Target As Range)
x = Range("Riferimento1").Row
Cells(x, 2).Interior.ColorIndex = xlNone
Cells(13, 2).Interior.ColorIndex = 46
With ActiveWorkbook.Names("Riferimento1")
.RefersTo = "=Foglio8!$B$13"
End With
End Sub

chiudo il tutto e salvo le modifiche.

Quando in riga 3 inserisco una riga la cella B13 si colora, compare l'avviso
Errore di run-time '1004'
Errore definito dall'applicazione o dall'oggetto
in cui l'istruzione evidenziata in giallo è
With ActiveWorkbook.Names("Riferimento1")
Ho notato che dopo l'inserimento della riga il nome "Riferimento1" non resta agganciato alla cella B13, ma passa alla B14.
Grazie assai per la solita infinita (nel vero senso della parola) pazienza
Buona giornata
eZio

Ciao,
questa Materia è davvero affascinante... non pensavo che il Foglio8 rinominato FR-F, ma riconosciuto comunque come Foglio8(FR-F) nel form dei progetti VBA, necessitasse di un'ulteriore specifica nelle istruzioni della macro!!
Durante la mia ricerca "empirica" della possibile soluzione avevo evoluto l'istruzione
With ActiveWorkbook.Names("Riferimento1")
.RefersTo = "=Foglio8!$B$13"
in
With ActiveWorkbook.Names("Riferimento1")
.RefersTo = "=FR-F!$B$13"
ma certamente non pensavo che sarebbe stato necessario un ulteriore approfondimento come questo
With ActiveWorkbook.Worksheets("FR-F").Names("Riferimento1")
.RefersTo = "='FR-F'!$B$13"
in cui Worksheets("FR-F") e 'FR-F' (con gli apici) la facessero da padroni della situazione... (detto tra noi: gli apici in ='FR-F'!$B$13 erano presenti nella stringhetta della window relativa al Nuovo nome da assegnare alla cella, ma qui entra in gioco la "competenza" che mi manca... )
Ora è tutto a posto. Ancora una volta le nostre teste dure (ma sopra tutto le immense competenza e disponibilità di a10n11) hanno avuto ragione sugli eventi...
Grazie infinite, buon pomeriggio
eZio

salve
prova con questa modifica:

Private Sub Worksheet_Change(ByVal Target As Range)
x = Range("Riferimento1").Rows.Count
Range("Riferimento1").Interior.ColorIndex = xlNone
Range(Cells(13, 2), Cells(13 + x - 1, 2)).Interior.ColorIndex = 46
With ActiveWorkbook.Worksheets("FR-N").Names("Riferimento1")
.RefersTo = "='FR-N'!$B$13:$B$17"
End With
End Sub

saluti
Giap

---

salve
innanzitutto grazie a te per il riscontro che contrariamente ad altri prendono la risposta e non fanno sapere se il loro problema è stato risolto.
La macro in questione funziona ma è pittosto grezza, rivedendola, si sarebbe potuto fare a meno di queste righe:
x = Range("Riferimento1").Rows.Count
Range(Cells(13, 2), Cells(13 + x - 1, 2)).Interior.ColorIndex = 46
e spostare il tutto dopo la riassegnazione del nome al range.
Come vedi VBA nella sua semplicità consente vari modi di interpretare il problema raggiungendo sempre lo stesso risultato.
saluti
Giap

---

ecco cosa intendevo..

Private Sub Worksheet_Change(ByVal Target As Range)
Range("Riferimento1").Interior.ColorIndex = xlNone
With ActiveWorkbook.Worksheets("FR-N").Names("Riferimento1")
.RefersTo = "='FR-N'!$B$13:$B$17"
End With
Range("Riferimento1").Interior.ColorIndex = 46
End Sub

saluti
Giap

---