Column Width

[Nick]

I would like to hide/unhide columns using the column width (equal to "0"). I
would like to do this as a result of the contents of a cell. For instance,
if user answers "Yes" to a question, then hide column D. Can this be done?

 

[Don Guillett]

You give no detail but this can be done with a worksheet_change event in the
sheet module

 

[Nick]

For detail.

A1 has a drop down for "Yes" or "No" as choices. I want column C to be
hidden if A1="Yes" and unhidden if A1="No". This would be written as an "if"
function.

=if(A1="Yes", columnwidth C;C=0, columnwidth C;C=10)

This doesnt work this way, is there a command that I can use in the formula
line to control column width?

 

[Don Guillett]

Right click sheet tab>view code>insert this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("a1").Address Then Exit Sub
Columns("d").Hidden = False
If LCase(Target) = "yes" Then Columns("d").Hidden = True
'or
'Columns("d").ColumnWidth = 10
'If LCase(Target) = "yes" Then Columns("d").ColumnWidth = 0
End Sub