Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = 0
If Target.Address(0, 0) = "G2" Then
If Target.Value <> "" Then
Range("A3:F3").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Range("A5").CurrentRegion.Interior.ColorIndex = 40
Else
Range("A3:F3").AutoFilter Field:=1
Range("A5").CurrentRegion.Interior.ColorIndex = xlNone
End If
End If
Range("A2:J3").Interior.ColorIndex = xlNone
Range("A4:J4").Interior.ColorIndex = 40
End Sub