VBA for multiple criteria autofilter

[bmpreston]

I have a macro:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice 20160623
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("I2").AutoFilter 9, "=0.00"
Next
End Sub

As you can see, I didn't write it, but I understand the basics of changing how it works... I'm trying create a multiple filter.

I need to filter I2 for anything that is only zero

I now need to add if H2 column is less < than 0.

I've tried adding xWs.Range("H2").AutoFilter 8, "<0"

Currently its hiding everything if the I2 is processed.

And its possible that both conditions exist.

Thanks