Nothing seems to happen when I selected something in the data validation list apart from E2 getting selected.
What's supposed to happen?
This is more the sort of thing I was thinking.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(target, Range("A2:C2"))
If rng Is Nothing Then
Exit Sub
Else
Range("H1").Value = Range("A2").Value
Range("H2").Value = "=""<>""&"""""
Range("Table1[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
:=Range("H1:H2"), Unique:=False
End If
End Sub
Bookmarks