Hide All Columns That Contain A Value In A Cell
The following macro will hide all the column containing the word “hide” in each cell in row 1. Here is a brief description of how the code works:
This macro loops through all the cells in Range(“A1:G1”) using a For Loop. The If statement checks the cell’s value to see if it equals “hide”. If the cell value equals “hide” then the cell’s entire column is hidden.
' =================================================================================================
' ## Hide all Columns that Contain a Value in a Cell
' =================================================================================================
Sub Hide_Columns_Containing_Value()
'// variables
Dim c As Range
'// loop and hide if cell value is "hide"
For Each c In Range("A1:G1").Cells
If c.Value = "hide" Then
c.EntireColumn.Hidden = True ' change to false to unhide the column
End If
Next c
End Sub
Unhide all Columns in a Range
This line of code will make the columns visible.
Range("A1:G1").EntireColumn.Hidden = False
Toggle the Hidden State of a Column
The following line of code will set the hidden property to the opposite of it’s current state. If the column is hidden, it will be made visible (unhidden). If it’s visible, it will be hidden.
c.EntireColumn.Hidden = Not c.EntireColumn.Hidden