VBA - Find text and Delete Entire Row in Multiple Sheet

[billylui9]

Please HELP write a VBA to finding a Text in Multiple Sheet and delete the entire row if the text is found.

This String will appear many time,

I.e. if the string "BONNIE" is present in any cell in any string position in any Sheet the entire row will be deleted.

URGENT, Many thanks

 

[Michael M]

I can't read the picture you posted
How many sheets do you have?
How many rows on Average do you have?
Can "Bonnie" be anywhere on the sheet, or is it in a specific column / s

 

[billylui9]

I can't read the picture you posted
How many sheets do you have?
How many rows on Average do you have?
Can "Bonnie" be anywhere on the sheet, or is it in a specific column / s

Sheet total almost 100
Around 120 rows per sheet
"Bonnie" could be indivual Text or in any string and no specific column

 

[Michael M]

In that case with so many sheets, try it this way
This code originally came from Rick Rothstein

Sub MM1()
  Dim WS As Worksheet
  On Error Resume Next
  For Each WS In Sheets
    With WS.UsedRange
      .Replace "*Bonnie*", "#N/A", xlWhole, , False
      Intersect(.Cells, .SpecialCells(xlConstants, xlErrors).EntireRow).Delete
    End With
  Next
End Sub

 

[billylui9]

In that case with so many sheets, try it this way
This code originally came from Rick Rothstein

Sub MM1()
  Dim WS As Worksheet
  On Error Resume Next
  For Each WS In Sheets
    With WS.UsedRange
      .Replace "*Bonnie*", "#N/A", xlWhole, , False
      Intersect(.Cells, .SpecialCells(xlConstants, xlErrors).EntireRow).Delete
    End With
  Next
End Sub

This code sometimes "#N/A" will leave behind on the cell, but its Help me lot, thanks