MS Excel / VBA help thread

Something like this in the relevant worksheet (right click on the worksheet tab and select View Code)

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("C24")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then


Range("A1:B15").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A24:A25"), Unique:=False

End If

End Sub

would filter A1:B15 based on criteria on A24:A25 when C24 is altered