Un saluto a rollis13
Non saprei col 365, in teoria sulla linguetta del foglio, visualizza codice ed incolli sulla destra.
Ammettiamo che hai 1000 nomi in colonna A, se fossero di più aumenti 1000.
Fossero in colonna B cambia in Range("B1:B1000")
Unico fastidio se col mouse selezioni le celle in A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
Range("A1:A1000").Interior.ColorIndex = xlNone
Cells(Target.Row, 1).Interior.ColorIndex = 8
End If
End Sub
[Modificato da ABCDEF@Excel 10/05/2020 15:19]