Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([c:c], Target) Is Nothing Then
        Static previous_selection As String
        If previous_selection <> "" Then
           Range(previous_selection).Interior.ColorIndex = xlColorIndexNone
        End If
        Target.Interior.Color = RGB(181, 244, 0)
        previous_selection = Target.Address
    End If
    
    If Not Intersect([e:e], Target) Is Nothing Then
        Static previous_selection1 As String
        If previous_selection1 <> "" Then
           Range(previous_selection1).Interior.ColorIndex = xlColorIndexNone
        End If
        Target.Interior.Color = RGB(181, 244, 0)
        previous_selection1 = Target.Address
    End If
End Sub