Delete Column if value does not equal in array
<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>