title: AutoFilter to find blank cells
body: <p>I am trying to apply an autofilter in VBA for three different criterias in the same field. Once I have applied the filter I would like to find all those cells that are blank, can anyone advise? </p>
  
  <pre><code>    Sub ApplyAutoFiler()
      Dim ws As Worksheet
      Dim I, j, NumberOfErrors As Long
      IsErrors = False
  
      Set ws = Sheets("Assessments")
  
      NumberOfErrors = 0
      Dim Z As Range
      Set Z = Cells(4, 3).EntireColumn.Find("*", SearchDirection:=xlPrevious)
      If Not Z Is Nothing Then
          NumberOfRows = Z.Row
      End If
  
      For I = 4 To NumberOfRows
  
     With ws
     .AutoFilterMode = False
    .Range("W4:AA4").AutoFilter Field:=1, Criteria1:=Array("A", "B", "C"), Operator:=xlFilterValues
    .Cells.SpecialCells(xlCellTypeBlanks).Interior.Color = 65535
    .AutoFilterMode = False
  
     End With
  
     Next I
  
  
     End Sub
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/mlwZS.png" alt="enter image description here"></p>
  
  <p>I ended up doing this as a nested if statement </p>
  
  <pre><code>If Range("W" &amp; i).Value = "A" Or Range("W" &amp; i).Value = "B" Or Range("W" &amp; i).Value = "C" Then
       If Range("AD" &amp; i).Value = "" Then
          Range("AD" &amp; CStr(i)).Interior.ColorIndex = 3
          NumberOfErrors = NumberOfErrors + 1
       End If
    End If
  </code></pre>