title: How to delete Empty Range for entire workbook excluding a few sheets?
body: <p>In my workbook, I want to go through each sheet, excluding 3 specific sheets, and check the range <code>A8:A12</code>. Within that range, if the cell is empty, I would like to delete the entire row. This is what I have so far:</p>
  <pre><code>Sub deleteRows()
  
     Dim QSh As Worksheet
     
     Dim rngDel As Range
     
     Set rngDel = Range(&quot;A8:A12&quot;)
  
     For Each QSh In ThisWorkbook.Sheets
  
          If QSh.Name &lt;&gt; &quot;Sheet1&quot; And QSh.Name &lt;&gt; &quot;Sheet2&quot; And QSh.Name &lt;&gt; &quot;Sheet3&quot; Then
      
          QSh.rngDel.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
          
      End If
  
  End Sub
  </code></pre>
  <p>Doesn't seem to work, can anyone help?</p>