This is current macro:
Sub PrintAllSheets()
Dim wb As Workbook, sht As Object
For Each wb In Excel.Workbooks
For Each sht In wb.Sheets
sht.Range("$AU$14:$AU$144").AutoFilter Field:=1, Criteria1:="1.00"
sht.PrintOut
Next sht
Next wb
End Sub
The problem is the line...