Macro Won't Delete Top Row

[brent_milne]

I have a macro that deletes any row that contains a certain word or words. I am constantly adding words to be deleted based on other criteria so I have been just adding what I need into the macro. The problem I am having is that if that word is in row 1 it seems that my macro doesn't recognize it and won't delete it. If the same word is in any other row it will be deleted just not in the first row. Here is the part of the macro that I am using to find and delete the word. Any help would be greatly appreciated.

With ActiveSheet
.AutoFilterMode = False
With Range("A1", Range("A" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Word to search for*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With

[RHCPgergo]

I think it's the Offset(1) in this line. Any luck with removing it?

Please Login or Register  to view this content.

should be

Please Login or Register  to view this content.

[brent_milne]

That didn't help. Same result. Would the macro be seeing the top row as headers maybe so not recognizing anything?

[RHCPgergo]

It works for me. I tried more testing, but I don't have any other ideas.

Just a minor point, why do you need "On Error Resume Next"? It doesn't display errors if there are any. Try removing it and maybe you get an error that explains why your code doesn't work the way you want it.