Resize columns through VBA

[MFish]

Hi,

I am making a userform with checkboxes that will be a "Filter what you want to see" action. When you checkmark a checkbox it will then hide the designated column. When you uncheck it, it reverts back to unhide. My problem I have is it works great until you unhide the column and the column reverts to a default small width.

Code:

Sub checkbox1_click()
if checkbox1.value = true then
Columns("B").EntireColumn.Hidden = TrueelseColumns("B").EntireColumn.Hidden = Falseend sub

I'd like for the column to stay at a 15 width when you unhide it. How do I do that? And all of the checkboxes will be designated to a certain column and will all be the same width.

 

[Fluff]

How about

Sub checkbox1_click()
If CheckBox1.Value = True Then
   Columns("B").EntireColumn.Hidden = True
Else
   Columns("B").EntireColumn.Hidden = False
   Columns("B").ColumnWidth = 15
End If
End Sub