Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$9" Then
If Range("B9") <> "" Then
Range("C18").AutoFilter
Range("C18").AutoFilter Field:=2, Criteria1:=">=" & Format(Range("B9"), "mm/dd/yyyy"), _
Operator:=xlAnd, Criteria2:="<=" & Format(Range("C9"), "mm/dd/yyyy")
End If
End If
End Sub