<div>
Why not just use AutoFilter:<br />
<br />
ActiveSheet.Range(&quot;A:A&quot;).A<wbr />utoFilter Field:=1, Criteria1:=&quot;1&quot;<br />
<br />
HTH,
</div>


Why not just use AutoFilter:

ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="1"

HTH,

<div>
Hi Smitty :)<br />
<br />
If the Asker is trying to hide the values in a single column, then I agree with you on the AutoFilter.<br />
<br />
I had a different reading of the question--which may or may not have been the right one :)
</div>


Hi Smitty :)

If the Asker is trying to hide the values in a single column, then I agree with you on the AutoFilter.

I had a different reading of the question--which may or may not have been the right one :)

<div>
Guess we'll just have to wait and see. :)
</div>


Guess we'll just have to wait and see. :)

<div>
Patrick, <br />
<br />
You hitted right on the mark. &nbsp;Could you adjust to equal &quot;Show&quot; instead of 1.<br />
<br />
Also, could you include the code unhide all the columns :)<br />
<br />
Thanks,<br />
JP
</div>


Patrick,

You hitted right on the mark.  Could you adjust to equal "Show" instead of 1.

Also, could you include the code unhide all the columns :)

Thanks,
JP

<div>
<div class="content wysiwyg-content">
Or in other words, hide all others that do not contain a 1.<br />
<br />
If looking into all the columns will cause a noticeable delay to the eye, then we could limit the columns of where the Macro looks for the values. &nbsp;Perhaps it could be a range? &nbsp;<br />
<br />
Thanks,<br />
Juan
</div>
</div>


Or in other words, hide all others that do not contain a 1.

If looking into all the columns will cause a noticeable delay to the eye, then we could limit the columns of where the Macro looks for the values.  Perhaps it could be a range?  

Thanks,
Juan

Macro show only columns where the cell in row A = 1 (excel 2003)

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.