Delete entire row if cell value is equal to

[sharky12345]

Can someone show me how to delete an entire row if a Cell.Offset value is equal to a specific value?

I have this so far but don't know what else I need to specify the row number;

If cell.Offset(0, 10).Value = "Archived" Then

 

[Joe4]

Try:

If cell.Offset(0, 10).Value = "Archived" Then Rows(cell.Row).Delete

 

[sharky12345]

Thanks!

 

[Peter_SSs]

An alternative syntax is

If cell.Offset(0, 10).Value = "Archived" Then cell.EntireRow.Delete

 

[Rick Rothstein]

I'd like to make an observation to the OP. Your use of the variable Cell would seem to suggest that you are running a For..Each loop to iterate the cells in some (unspecified) columnar range. If it is possible for the word "Archived" to appear in two (or more) adjoining rows in that offsetted column, then you will not get the correct row deletions. For..Each iterations of cells in such a range takes place from a lower row number to a higher row number. Because of this, if you delete a row, the next row moves up to fill that deleted row's spot, but the loop has already processed that cell so it will move on to the next cell which means the row that moved up will not be checked to see if its offsetted cell contains the word "Archived" or not. The only way to run a loop where rows will be deleted and adjacent rows could meet the criteria for deletion is to iterate the loop backwards from the higher row number down to the lower row number.