View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default Delete an entire row if two cells......

Sub DeleteRows_2Params()
'Bob Phillips Aug. 26, 2006
'Revised Gord Dibben April 30, 2008
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "B").Value = "N" And _
Cells(i, "C").Value = "N" Then
Rows(i).Delete
End If
Next i
End Sub


Gord Dibben MS Excel MVP


On Wed, 30 Apr 2008 07:48:00 -0700, Red2003XLT
wrote:

Hello All,

How do I delete (for an entire worksheet) rows that contain "N"?

The cells are "B and "C".

If "B" and "C" contain the letter "N" delete the entire row?
The letter "N" is the only thing in the cell.