I am trying to modifiy an existing routine but can't get it to work.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim l As Long

If Target.Count 1 Then Exit Sub
If Target.Address = "$C$16" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
r = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Value = Sheets("Lists").Range("$A$1").Value Then
Sheets("Lists").Range("$C$2").Value = ""
Else
Sheets("Lists").Range("$C$2").Value = Target.Value
End If

Range("$a20:$P" & r).AdvancedFilter Action:=xlFilterInPlace, _
criteriaRange:=Sheets("Lists").Range("$C$1:$C$2"), Unique:=False
End If

I'm using this in another workbook. The target address is "B2" on worksheet
"code activity". "B1:B2" is my range and the filter column begins at "A10".
Isn't it as simple as substituting this out? I'm guessing my problem is
this new workbook has everything on one worksheet and the original workbook
is checking two worksheets to get the info. I have this booogered up! Any
help?
Thanks,
Greg