THANKS FROM ITALY.
IT WORKS GREAT, THANK YOU AGAIN FRIEND,

Ale.


"Tom Ogilvy" wrote in message ...
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
Cells(oldRange.row, 1).Interior.ColorIndex=colorIndices
End If
colorIndices=Cells(Target(1).row,1).Interior.Color Index
cells(Target(1).Row,1).Interior.ColorIndex=15
Set oldRange=Cells(Target(1).Row,1)
End Sub

--
Regards,
Tom Ogilvy