Activate the Control ToolBox and add a CommandButton to your worksheet. Right click the button and choose View Code. Paste this into the window on the right:
Not you will only need to add the middle line to the existing procedure stub. Press Alt+F11 to return to your worksheet and click the Design icon on the Control ToolBox.Code:Private Sub CommandButton1_Click() CommandButton1.TopLeftCell.Offset(0, 1).Resize(, 4).EntireColumn.Hidden = True End Sub
I will leave you to work out how to add the UnHide button.