Hide/unhide Columns using checkbox

Question

I want to hide/unhide a couple of columns with a checkbox.&nbsp;Say columns K and L are the two columns I want to hide/unhide&nbsp; - how would I go about doing that.

hansvogelaar · Answer

tmadaras485&nbsp;
Insert a check box from the Form Controls section of the Insert Controls drop down on the Developer tab of the ribbon. In the following, I'll assume that its name is Check Box 1.
Right-click the check box and select Assign Macro... from the context menu.
Enter the name HideUnhide and click New.
Make the code look like this:
Sub HideUnhide()
    Range("K1:L1").EntireColumn.Hidden = _
        (ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1)
End Sub
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open it.

tmadaras485 · Answer

hide the columns when it is checked I want to unhide when it is checked.

hansvogelaar · Answer

tmadaras485&nbsp;
That's easy:
Sub HideUnhide()
    Range("K1:L1").EntireColumn.Hidden = _
        (ActiveSheet.Shapes("Check Box 1").ControlFormat.Value &lt;&gt; 1)
End Sub

Forum Discussion

Hide/unhide Columns using checkbox

3 Replies

Resources