Filtering 0 VBA

[laurenh5516]

I'm trying to filter 0s and I did it for one table, but when I try to execute it for a second table it only leaves the 0s

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("AreaLead").Address Then
Sheets("TOCalc").Range("$A$1:$E$34").AutoFilter Field:=5, Criteria1:="<>0"

End If


If Target.Address = Range("AreaLead").Address Then
Sheets("Top10ActiveProjects").Range("$K$1:$P$84").AutoFilter Field:=6, Criteria1:="<>0"

End If


End Sub

 

[Fluff]

I can see nothing obviously wrong with your code, however which column are you looking to filter?