Need Help Deleting Rows on all sheets (Quick) (VBA/Macro)

[joshmorris23xx]

Hi all,

Looking for a macro to achieve the following.

In column AA of a sheet named "Welcome" no quotes, I have various text in its cells.
If the cell does not contain the word "facts" no quotes in it, I would like to have that row deleted from ALL sheets in the workbook, and not leave any white empty space.

For example, cell AA1 says "facts hi", since it contains "facts", Row 1 should remain on all sheets.
Cell AA2 says "bye", since it does not contain facts, Row 2 should be entirely deleted from all sheets in the workbook.


All help appreciated getting this done!

 

[footoo]

Here's another way :

Sub FT()
Dim rng$, rng2$, ws As Worksheet
rng = Range([AA2], Cells(Rows.Count, "AA").End(xlUp)).Address
Range(rng) = Evaluate("if(isnumber(search(""facts""," & rng & "))," & rng & ",0/0)")
rng2 = Range(rng).SpecialCells(xlCellTypeConstants, 16).Address
For Each ws In Worksheets
    ws.Range(rng2).EntireRow.Delete
Next
End Sub

 

[Peter_SSs]

@joshmorris23xx
Your thread title includes "Quick". Just checking if any suggested codes that do what you require are "Quick" enough for you? If any do what you want but are not quick enough, please identify those codes.
.. or did you just mean you wanted quick help.