title: Delete Column if value does not equal in array
body: <p>I was thinking that this might be done better as an array, but not sure how to do that. The way I am doing it now doesn't produce the results I am looking for:</p>
  
  <pre><code>Sub DeleteColumns_Cash()
  Set dltRange = Range("A1:ZZ1")
  For Each cell In dltRange
      If cell.Value &lt;&gt; "AMOUNT" Or cell.Value &lt;&gt; "TRANTYPE" Or cell.Value &lt;&gt; "CCY" Or cell.Value &lt;&gt; "SECID" Or cell.Value &lt;&gt; "SECDESC" Or cell.Value &lt;&gt; "FUND" Then
      cell.EntireColumn.Delete
      End If
  Next
  End Sub
  </code></pre>