Excel VisualBasic Script

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Interior.Color = vbBlue
End Sub