macro runs in debug but NOT when I 'run' it

[rog54bert]

Don't understand how macro can run in step mode but not when I run it:

Sub PrintAllSheets()
Dim wb As Workbook, sht As Object

For Each wb In Excel.Workbooks

For Each sht In wb.Sheets
sht.Activate
ActiveSheet.Range("$AU$14:$AU$144").AutoFilter Field:=1, Criteria1:="1.00"
sht.PrintOut

Next sht

Next wb
End Sub

Has anyone had this happen?

 

[rog54bert]

Adjusted for the Code BB stuff . . .

I've since narrowed this issue to be the line containing autofilter:

Sub PrintAllSheets()
Dim wb As Workbook, sht As Object
For Each wb In Excel.Workbooks
 
    For Each sht In wb.Sheets
        sht.Activate
        If Not ActiveSheet.AutoFilterMode Then ActiveSheet.Range("$AU$14:$AU$144").AutoFilter
        ActiveSheet.Range("$AU$14:$AU$144").AutoFilter 1, "1"
        sht.PrintOut
    Next sht
Next wb
End Sub

This runs when I 'step' through the code. However, when I run the macro I get "Autofilter method of Range class failed". By way of background -- every sheet in every workbook has an active filter in column AU, rows 14-144. The filter is there to hide rows with 0 totals. The column contains either a "1" (not zero row) or a "0" (zero row).

 

[rog54bert]

I moved this project home and found out more. Is there any reason the above code would not run from personal.xlsb? The macro runs from within the object workbook but only if there is NO personal.xlsb file. If there is a personal.xlsb file (even with no macros), the above macro errors out. If I delete the personal.xlsb file and import the macro into object workbook the macro works. The problem is I have 22 files with varying numbers of sheets and would much rather run the macro remotely than from inside each file. Any help would be much appreciated.