VBA Delete Row If Cell Contains Value Works For First Sheet But Won't Loop

[Worker8ee]

The following VBA works for the first sheet that it begins on but won't carry out the same task in the following sheets even though I thought I had coded it correctly to do so, I am not gettin any error message but it just isn't looping, here is what I am using:

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
With sht
.AutoFilterMode = False
With sht.Range("D5", Range("D" & Rows.Count).End(xlUp))
.AutoFilter 1, "AUGUST"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
Next sht

 

[Fluff]

Try

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
   With sht
      .AutoFilterMode = False
      With .Range("D5", .Range("D" & Rows.Count).End(xlUp))
         .AutoFilter 1, "AUGUST"
         On Error Resume Next
         .Offset(1).SpecialCells(12).EntireRow.delete
         On Error GoTo 0
      End With
      .AutoFilterMode = False
   End With
Next sht

 

[Worker8ee]

Thank you Fluff, this worked perfectly!

 

[Fluff]

Glad to help & thanks for the feedback