Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Range("A1:B" & [A65000].End(xlUp).Row).Interior.ColorIndex = xlNone
If Target.Row > 1 And Target.Column = 1 And Target.Value <> "" Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("A1:B" & [A65000].End(xlUp).Row).Interior.ColorIndex = xlNone
Range("A1:B" & [A65000].End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Target.Value
With [A1].CurrentRegion
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 8
End With
Selection.AutoFilter
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub