Auto filter with a print macro

[cesmythe]

How do I modify the below code in a print macro to autofilter any number greater than zero?


ActiveSheet.Range("$A$4:$O$70").AutoFilter Field:=2, Criteria1:=Array

Thanks...

 

[cgcamal]

Hi cesmythe,

If I understand you need something like this:

ActiveSheet.Range("$A$4:$O$70").AutoFilter Field:=2, Criteria1:="[B][COLOR=Red]>0[/COLOR][/B]",Operator:=xlAnd

Hope this helps,

Regards.