Trying to adjust identical filter in every open sheet in every open workbook

[rog54bert]

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 beginning with 'sht.range . . .'

Macro recorder indicated using:

ActiveSheet.Range("$AU$14:$AU$144").AutoFilter Field:=1, Criteria1:="1.00"

This printed every sheet but only adjusted filter on active sheet. Hoping it is easy solution. I'm very new to macros. Thanks for reading . . .