title: Removing (blanks) from all Pivot Tables in Worksheet
body: <p>I have 5+ Pivot Tables in a Worksheet where some cells have an empty source cell and are displayed with the typical (blank). I want the pivot tables to display an empty cell instead of the word (blank). </p>
  
  <p>I have reviewed other solutions but they are asking to have empty rows removed or the table filtered etc. </p>
  
  <p>Closest thing I found was under 
  <a href="https://stackoverflow.com/questions/36016155/excel-vba-remove-blanks-from-pivotable-group">Excel VBA Remove Blanks from Pivotable Group</a></p>
  
  <p>but in this solution a single column is identified and I need this to be applied to all pivot tables.</p>
  
  <p>Tried just simple recording the macro steps but am getting a Run time error 1004 on the ExecutExcel4Macro line when I try to re-run the macro.</p>
  
  <pre><code>Sub HB_Erase_Blank()
  '
  ' HB_Erase_Blank Macro
  
     Range("D4").Select
     Range("D4:CA6699").Select
  
     Selection.NumberFormat = ";;;"
     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
      Formula1:="=""(blank)"""
     Selection.FormatConditions(Selection.FormatConditions.Count).
     SetFirstPriority
     ExecuteExcel4Macro "(2,1,"";;;"")"
     Selection.FormatConditions(1).StopIfTrue = False
  End Sub
  </code></pre>