Ciao,
potresti sfruttare la selectionchange del Foglio, in questo modo:
codice:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = Null
ActiveCell.Interior.ColorIndex = 4
End Sub
Fammi sapere