Okay, I have about 50 rows data and I would like to delete all rows containing the word "Apple" in Column J. This code gets most values but not all. Please help. Sub DeleteAPPLERows() 'or Button1_Click() Dim Rng As Range, Cell As Range Set Rng = Range(Range("J2"), Range("J" & Rows.Count).End(xlUp)) For Each Cell In Rng If Cell = "Apple" Then Cell.EntireRow.Delete End If Next Cell End Sub
This question generated 12 answers. To proceed to the answers, click here.
This thread is current as of October 10, 2014.