title: Excel VBA: Delete rows if value not equal to a value?
body: <p>So I've been searching hard to find why my code hasn't been working, but every time I try, I get a result where nothing is changed.  Can someone please tell me what I'm missing?  Sorry, I'm a total novice but I'm trying.</p>
  
  <pre><code>   Dim Cell As Range
  
  With Sheets(1)
      ' loop column D until last cell with value (not entire column)
      For Each Cell In .Range("D2:D" &amp; .Cells(.Rows.Count, "D").End(xlUp).Row)
          If Cell.Value &lt;&gt; 110 Then
              Rows(Cell.Row).EntireRow.Delete
          End If
      Next Cell
  End With
  </code></pre>