Simple Filter VBA problem

[smichael]

I have a simple code used for filtering as follows:

Sub Macro3()
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
        Array("1", "20", "3"), Operator:=xlFilterValues
End Sub

This works, but I would like it to allow all numbers, and only excluding the exact value of "0". I made one that will do this, but it also excludes any numbers containing a zero in them. How could I fix this?

Thanks

 

[Jerry Sullivan]

Try using the Does Not Equal operator <>

ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:="<>0"