VBA Code to change column width for many columns, based on values in different cells

[nik983]

I have the following VBA Code that works, but I just need to do this for many more columns. I'm an absolute VBA novice, so I'm hoping there is a way to make this iterate through a column range?

Sub ColumnWidth()

Columns("a").ColumnWidth = [a3]
Columns("b").ColumnWidth = [b3]
Columns("c").ColumnWidth = [c3]
Columns("d").ColumnWidth = [d3]
Columns("e").ColumnWidth = [e3]
Columns("f").ColumnWidth = [f3]

End Sub

Ay assistance would be greatly appreciated!

 

[Joe4]

Welcome to the Board!

Try something like this:

Sub ColumnWidth()

Dim c As Long

For c = 1 To 10
    Cells(3, c).ColumnWidth = Cells(3, c).Value
Next c

End Sub

This goes out to column J (column 10). Increase the 10 to go out more columns.

 

[nik983]

That works beautifully, thank-you~!

 

[Joe4]

You are welcome.
Glad I was able to help!