ciao
si scusa, errore di battitura:
.....
If WorksheetFunction.CountIf(Range("B2:B" &
N), Cells(N, 2)) = 1 Then '<<<<<<<<<<<<<<
.....
Con l'occasione in B71 correggi "i Giganti" con Giganti (oppure viceversa tutte le celle che hanno "Giganti" con i Giganti).
In B24 togli lo spazio iniziale
Saluti
[Modificato da dodo47 16/09/2019 12:44]
Domenico
Win 10 - Excel 2016