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
[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD="align: center"][/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]C[/TD]
[TD="align: center"]D[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[TD="align: center"]8.43[/TD]
[TD="align: center"]50[/TD]
[TD="align: center"]20[/TD]
[TD="align: center"]15[/TD]
[/TR]
</tbody>[/TABLE]

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