Macros that deletes row and everything under it for all sheets

[undergraduate]

Hi I have a workbook, with worksheets that have the word "Summary public" which appears once in Column A. I am trying to create a macros that searches for this exact word in all sheets, and deletes the row the word is in and all rows underneath it, for this purpose 1000 rows is sufficient.

[JBeaucaire]

Try this:

Option Explicit

Sub DeleteSummaryPublicRows()
Dim ws As Worksheet
Dim SumPubFIND As Range

On Error Resume Next

    For Each ws In Worksheets
        Set SumPubFIND = Range("A:A").Find("Summary Public", _
            LookIn:=xlValues, LookAt:=xlWhole)
        If Not SumPubFIND Is Nothing Then
            Range(SumPubFIND, ws.Range("A" & Rows.Count) _
                .End(xlUp)).EntireRow.Delete xlShiftUp
            Set SumPubFIND = Nothing
        End If
    Next ws

End Sub

[undergraduate]

Thank you very much for this.
Unfortunately it only works for one worksheet, i.e. if I run the macros directly on the worksheet. It does not work/ run for all worksheets in the workbook for some reason.
I would have to manually run it on each worksheet. Is there an issue with the For loop?
Thank you again.

[MarvinP]

Hi undergraduate,

Do you have extra spaces before, in the middle or after "Summary public" in any of the cells? It would need to be what is in the code EXACTLY.
In the code "Summary public" is not equal to "Summary public " because of the extra space in the second.

[undergraduate]

Thank You, simple enough and helped me resolve my issue. Thanks to both of you!