Setting column widths by values in Row 2

[LAAdams17]

I am looking for a way to set column widths by the values in Row 2

	A	B	C	D
1
2	8.43	50	20	15

<tbody>
</tbody>

Thanks for any help you can provide!

 

[VoG]

Try

Sub atest()
Dim LC As Long, j As Long
LC = Cells(2, Columns.Count).End(xlToLeft).Column
For j = 1 To LC
    Columns(j).ColumnWidth = Cells(2, j).Value
Next j
End Sub

 

[LAAdams17]

Thank you so much; it's perfect.

I added the following enhancement:

Sub Column_Width()
Dim LC As Long, j As Long, Name As Integer
' Capture the Row number where the column widths are stored
Name = InputBox("Please enter the Row number where the column widths are stored: ")
LC = Cells(Name, Columns.Count).End(xlToLeft).Column
For j = 1 To LC
Columns(j).ColumnWidth = Cells(Name, j).Value
Next j
End Sub