title: Highlighting Blank Cells within Range
body: <p>I am working on a macro that copies, pastes, and then creates templates forms of various sizes. Before the macro saves the template sheet as a separate file, I have it searching through a range - typically through D14:G end of data range - and highlights blank cells in a custom color. However, I have one very specific use case where there are no blank cells within the range (D14:G16), so it has been selecting all blank cells below this range (A17 to end of sheet). Can anyone help me work past this? Below is the excerpt from the macro that highlights the blankcells:</p>
  <pre><code> Set rLastCell = Sheets(&quot;Diversity Form&quot;).Cells.find(What:=&quot;*&quot;, After:=Sheets(&quot;Diversity Form&quot;).Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
          xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
          'ColumnLetter2 = Split(Cells(1, rLastCell.Column).Address, &quot;$&quot;)(1)
          lCol = Sheets(&quot;Diversity Form&quot;).Cells(Rows.count, 4).End(xlUp).Row
          'Dim ColumnLetter As String
          'color only blank cells
          For h = 4 To 7
          ColumnLetter = Split(Cells(1, h).Address, &quot;$&quot;)(1)
          Let item = ColumnLetter &amp; &quot;14:G&quot; &amp; lCol
          Sheets(&quot;Diversity Form&quot;).Range(item).SpecialCells(xlCellTypeBlanks).Select
          On Error Resume Next
              With Selection.Interior
                 .Pattern = xlSolid
                 .PatternColorIndex = xlAutomatic
                 .ThemeColor = xlThemeColorAccent1
                 .TintAndShade = 0.599993896298105
                 .PatternTintAndShade = 0
              End With
      
          Next
  </code></pre>