Column Width after toggle?

[Gregg Wolin]

Can someone provide the code required to set the column width of the columns rendered visible?

For Each c In Rows("1:1").Cells
    If c.Value = "x" Then c.EntireColumn.Hidden = Not c.EntireColumn.Hidden
     'Need code to set column width here? 
    Next c

 

[Chihiro]

Do you mean something like... below?

For Each c In Range("A1:D1").Cells
    If c.Value = "x" Then c.EntireColumn.Hidden = Not c.EntireColumn.Hidden
    If Not c.EntireColumn.Hidden Then c.ColumnWidth = 8.43
Next c

Note: You may want to add c.Value = "x" as condition in second if statement as well.

 

[Gregg Wolin]

Excellent!
What would adding c.Value = "x" do in the second statement? What syntax?

 

[Chihiro]

Without it, any visible columns will be adjusted to same width. If you want to skip over those column(s) that does not have "x" as value, you'd need that condition.

Syntax:

If c.Value = "x" And Not c.EntireColumn.Hidden Then c.ColumnWidth = 8.43