Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With [A1:XFD1048576]
.Interior.Color = xlNone
If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With ActiveCell
.Interior.Color = RGB(180, 205, 129)
.Font.ColorIndex = xlAutomatic
End With
End Sub