How to automatically hide columns containing no data

[jcggriff]

I have a workbook with 73 columns. I have a formula in each cell in row 2 that enters the word HIDE in the cell if there is no data in the column.

How do I create a Macro or other solution to find the word HIDE in row 2 and then hide that column? I do not want to delete the columns I just need to hide them if they don't contain any data. The data in the columns will change each month.

I am using Excel 2002 and Windows 2000

Thanks for any suggestions.

JCGGRIFF

 

[phantom1975]

WELCOME TO THE BOARD!

This worked for me:

<font face=Courier New><SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Sub</SPAN> Worksheet_Calculate()
<SPAN style="color:darkblue">Dim</SPAN> ThisCell <SPAN style="color:darkblue">As</SPAN> Range
    <SPAN style="color:darkblue">For</SPAN> <SPAN style="color:darkblue">Each</SPAN> ThisCell <SPAN style="color:darkblue">In</SPAN> Range("A2:BT2")
        <SPAN style="color:darkblue">If</SPAN> ThisCell.Value = "HIDE" <SPAN style="color:darkblue">Then</SPAN>
            ThisCell.EntireColumn.Hidden = <SPAN style="color:darkblue">True</SPAN>
        <SPAN style="color:darkblue">Else</SPAN>
            ThisCell.EntireColumn.Hidden = <SPAN style="color:darkblue">False</SPAN>
        <SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">If</SPAN>
    <SPAN style="color:darkblue">Next</SPAN> ThisCell
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>

 

[jcggriff]

Thanks Phantom1975

I will try your solution. It will save me a huge amount of time.

Thanks Again,

jcggriff