对众多excel表格进行批量操作的VB代码问题

我想对许多excel表进行相同的操作，操作如下：
对每一个excel中的sheet，进行条件判断并且填充
现在的代码如下，这个代码不会报错但是也不会运行，不知道问题在哪里T-T

Sub shishi()

Application.ScreenUpdating = False

Dim wbMy As Workbook

Dim sht As Worksheet

Application.ScreenUpdating = False

mypath = "C:\Users\Lenovo\Desktop\folder" '假设文件存储在这个目录

myfile = Dir(mypath & "*.xlsx')

Do While myfile <> ""

Set wbMy = Workbooks.Open(mypath & myfile)

With wbMy

Set sht = ActiveSheet

For Each sht In Sheets

Selection.AutoFilter

sht.Range("$A$1:$U$65536").AutoFilter 16, "<0.1"

sht.Range("$A$1:$U$65536").AutoFilter 2, ">0"

sht.Range("$B$1:$B$65536").Interior.Color = vbYellow

sht.ShowAllData

sht.Range("$A$1:$U$65536").AutoFilter 17, "<0.1"

sht.Range("$A$1:$U$65536").AutoFilter 3, ">0"

sht.Range("$C$1:$C$65536").Interior.Color = vbYellow

sht.ShowAllData

sht.Range("$A$1:$U$65536").AutoFilter 18, "<0.1"

sht.Range("$A$1:$U$65536").AutoFilter 4, ">0"

sht.Range("$D$1:$D$65536").Interior.Color = vbYellow

sht.ShowAllData

sht.Range("$A$1:$U$65536").AutoFilter 19, "<0.1"

sht.Range("$A$1:$U$65536").AutoFilter 5, ">0"

sht.Range("$E$1:$E$65536").Interior.Color = vbYellow

sht.ShowAllData

sht.Range("$A$1:$U$65536").AutoFilter 20, "<0.1"

sht.Range("$A$1:$U$65536").AutoFilter 6, ">0"

sht.Range("$F$1:$F$65536").Interior.Color = vbYellow

sht.ShowAllData

sht.Range("$A$1:$U$65536").AutoFilter 21, "<0.1"

sht.Range("$A$1:$U$65536").AutoFilter 7, ">0"

sht.Range("$G$1:$G$65536").Interior.Color = vbYellow

sht.ShowAllData

sht.Range("$A$1:$U$65536").AutoFilter 2, "<>0"

Next
End With

myfile = Dir

Loop

Application.ScreenUpdating = True

End Sub

For Each sht In Sheets
在这里加上个
MsgBox "aaa"
看看代码进入循环了没有