Hi Igor, it may not be exactly what you want, but it may be of
some use... (in the workbook....)

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Excel.Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6

Set OldCell = Target

End Sub


Hope it helps..

seeya ste