Show/Hide Group entire Columns in Range with vba

Hi emorej, when I put the code in and assign the macro to the button, in one click it will hide the columns and then in one click it will unhide the columns. I do not understand the problem. When you assign the macro you will need to save this document as a .xlsm file.

Originally Posted by AliGW

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Hello and sorry again! I changed it in the morning.

Would it work to hide/unhide based on the heading being "Comment" ?

Sub HideUnhide()
Dim rngColumns As Range, f As Range
Dim fa As String

With Rows(2)
    Set f = .Find(what:="Comment", lookat:=xlWhole, LookIn:=xlFormulas)
    If Not f Is Nothing Then
        fa = f.Address
        Do
            If rngColumns Is Nothing Then
                Set rngColumns = f
            Else
                Set rngColumns = Union(rngColumns, f)
            End If
            Set f = .FindNext(f)
        Loop While Not f Is Nothing And fa <> f.Address
    End If
End With

If Not rngColumns Is Nothing Then rngColumns.EntireColumn.Hidden = Not rngColumns.EntireColumn.Hidden
End Sub

Hi, emorej.
The method I'll show you next doesn't require the columns to be grouped:

Sub Hide_unHide()
Dim a, Q%, i&, b, R%
a = Range("a2", Cells(2, [a1].SpecialCells(xlLastCell).Column)).Value
Q = UBound(a, 2): ReDim b(1 To Q)
For i = 6 To Q
  If a(1, i) = "Comment" Then
    R = 1 + R: b(R) = Cells(2, i).Address & ":" & Cells(2, i).Address
  End If
Next
ReDim Preserve b(1 To R): b = Join(b, ",")
With Range(b).EntireColumn
  If .Hidden = True Then .Hidden = False Else .Hidden = True
End With
End Sub