Hiding columns based on a header value

**numbers2** · 05-24-2012, 04:39 PM

Hello All,

I am looking for a formula or macro that will hide multiple columns in an excel worksheet based on the value in the Header of the worksheet?

**Pichingualas** · 05-24-2012, 04:54 PM

OK, how exactly. Do you want it to hide the columns that match the text in the header? (I assume you are talking about the header from when you print the page and not the value in the first row of each column)

**numbers2** · 05-24-2012, 09:08 PM

No I am referring to the values in Row 1. Is this possible to do in Excel 2003?

**aussieboykie** · 05-24-2012, 10:16 PM

This code will let you toggle column hide/show according to the label in row 1.

Function ToggleHideCol(Lbl As String) As Range
    Set ToggleHideCol = Rows(1).Find(what:=Lbl, LookIn:=xlFormulas, lookat:=xlWhole)
    If Not ToggleHideCol Is Nothing Then ToggleHideCol.EntireColumn.Hidden = Not ToggleHideCol.EntireColumn.Hidden
End Function

Sub ToggleHide()
    Dim c As Range
    Dim s As String
    s = InputBox("Enter a label to find", "Toggle Hide by Label")
    If Not s = "" Then
        Set c = ToggleHideCol(Lbl:=s)
        If c Is Nothing Then Call MsgBox("Label """ & s & """ not found.")
    End If
End Sub

Regards, AB