Hide/Unhide Button

[young engineer]

Hi All

I want to create a button to hide and unhide columns F,G,J,K,M,N,P,Q,R,S,T in my worksheet. I want to create a single button to display "Hide Columns" and Unhide Columns"

Any help will be appreciated
Thanks

 

[xld]

    With Columns("F:T")
    
        .Hidden = Not .Hidden
    End With
    Columns("H:I").Hidden = False
    Columns("L").Hidden = False
    Columns("O").Hidden = False

 

[micro-blades]

Add a toggle button to your sheet. Right click it and select "view code" then paste the following code within the click event:

    Dim bool As Boolean
    bool = ToggleButton1.Value
        If bool Then
            ToggleButton1.Caption = "Show Columns"
        Else
            ToggleButton1.Caption = "Hide Columns"
        End If
    Columns("F:F").EntireColumn.Hidden = bool
    Columns("g:g").EntireColumn.Hidden = bool
    Columns("j:k").EntireColumn.Hidden = bool
    Columns("m:n").EntireColumn.Hidden = bool
    Columns("p:p").EntireColumn.Hidden = bool
    Columns("q:t").EntireColumn.Hidden = bool

Brian