Private Sub Workbook_sheetselectionChange (ByVal Sh As Object, ByVal Target As Excel.range)
    Static OldCellIndexcolor as Integer
    Static OldCell As range
    
    if Not OldCell Is Nothing then
    OldCell.Interior.ColorIndex = OldCellIndexColor
    end if
    
    OldCellIndexColor = Target.Interior.ColorIndex
    Target.Interior.ColorIndex = 6
    
    set OldCell = Target
    
end Sub