Assuming you have data in columns A:J, this should work:

Sub FilterAll()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Cells.AutoFilter 11, "<"
Next
End Sub

-Ben